All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars
 perplexus dot info

 Two out of seven (Posted on 2016-07-07)
There are 7 distinct solution to my alphametic puzzle:
YES*NO=MAYBE

Please find the solution for which:
a. SOME+MANY
rends the largest result.
a. SOME-MANY
rends the largest result.

 See The Solution Submitted by Ady TZIDON No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
 computer solution (spoiler) Comment 2 of 2 |
`                                  SOME    SOMEYES*NO = MAYBE       SOME  MANY   +MANY   -MANY384*27 = 10368       4718  1023   5741    3695567*38 = 21546       7826  2135   9961    5691605*82 = 49610       5240  4986   10226    254705*28 = 19740       5810  1927   7737    3883705*38 = 26790       5820  2637   8457    3183706*35 = 24710       6520  2437   8957    4083705*62 = 43710       5240  4367   9607    873`

Largest sum is produced by: 605*82 = 49610  (sum is 10226)
Largest difference is produced by:  567*38 = 21546 (difference is 5691)

DefDbl A-Z
Dim crlf\$, used(9)

Form1.Visible = True

Text1.Text = ""
crlf = Chr\$(13) + Chr\$(10)

For y = 1 To 9
If used(y) = 0 Then
used(y) = 1
For n = 1 To 9
If used(n) = 0 Then
used(n) = 1
For m = 1 To 9
If used(m) = 0 Then
used(m) = 1
For e = 0 To 9
If used(e) = 0 Then
used(e) = 1
For s = 0 To 9
If used(s) = 0 Then
used(s) = 1
yes = 100 * y + 10 * e + s
For o = 0 To 9
If used(o) = 0 Then
used(o) = 1
no = 10 * n + o
For a = 0 To 9
If used(a) = 0 Then
used(a) = 1
For b = 0 To 9
If used(b) = 0 Then
used(b) = 1

maybe = 10000 * m + 1000 * a + 100 * y + 10 * b + e
If yes * no = maybe Then
somev = 1000 * s + 100 * o + 10 * m + e
manyv = 1000 * m + 100 * a + 10 * n + y
Text1.Text = Text1.Text & yes & "*" & no & " = " & maybe & "       "
Text1.Text = Text1.Text & somev & "  " & manyv & "   "
Text1.Text = Text1.Text & somev + manyv & "    " & somev - manyv & crlf
End If

used(b) = 0
End If
Next
used(a) = 0
End If
Next
used(o) = 0
End If
Next
used(s) = 0
End If
Next
used(e) = 0
End If
Next
used(m) = 0
End If
Next
used(n) = 0
End If
Next
used(y) = 0
End If
Next

Text1.Text = Text1.Text & crlf & " done"

End Sub

 Posted by Charlie on 2016-07-07 15:29:29

 Search: Search body:
Forums (0)