It began like:
YOU*ME=ONLY (i)
and after few years
YOU*ME=ENDED (ii)
The termination of the failed affair was due to:
48671 (i)
and/or to
79256(ii)
Solve both alphametics and determine the cause of the unhappy end.
183 47 8601
183 47 8601
183 47 8601
694 75 52050
694 75 52050
694 75 52050
694 75 52050
694 75 52050
694 75 52050
The solution for the "ENDED" puzzle appears 6 times as no check was made for the order of the three unused letters in the permuations of all ten digits. One such check was done for the "ONLY" puzzle, but that was deemed unnecessary in the debugging of the program.
In (i): 48671 is MONEY.
In (ii): 79256 is MONEY.
It was money either way.
DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
dig$ = "0123456789": h$ = dig
Do
you = Val(Left(dig, 3))
meVal = Val(Mid(dig, 4, 2))
If you > 100 And meVal > 9 Then
prod = you * meVal
nly = Val(Mid(dig, 6, 2)) * 10 + you \ 100
only = 1000 * Val(Mid(dig, 2, 1)) + nly
ended = 10010 * Val(Mid(dig, 5, 1)) + 101 * Val(Mid(dig, 9, 1)) + 1000 * Val(Mid(dig, 10, 1))
If only > 999 And prod = only And Mid(dig, 9, 1) < Mid(dig, 10, 1) Then
Text1.Text = Text1.Text & you & Str(meVal) & Str(only) & crlf
End If
If ended > 9999 And prod = ended Then
Text1.Text = Text1.Text & you & Str(meVal) & Str(ended) & crlf
End If
End If
permute dig
DoEvents
Loop Until dig = h
Text1.Text = Text1.Text & crlf & " done"
End Sub
|
|
Posted by Charlie
on 2017-06-17 18:49:13 |
computer solution
