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

 Love story (Posted on 2017-06-17)
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.

 No Solution Yet Submitted by Ady TZIDON No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
 computer solution Comment 1 of 1
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\$

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

 Search: Search body:
Forums (4)