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.
SOME SOME
YES*NO = MAYBE SOME MANY +MANY -MANY
384*27 = 10368 4718 1023 5741 3695
567*38 = 21546 7826 2135 9961 5691
605*82 = 49610 5240 4986 10226 254
705*28 = 19740 5810 1927 7737 3883
705*38 = 26790 5820 2637 8457 3183
706*35 = 24710 6520 2437 8957 4083
705*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)
Private Sub Form_Load()
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 |
computer solution (spoiler)
