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

Home > General
Love story (Posted on 2017-06-17) Difficulty: 3 of 5
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.)
Solution 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$


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
Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (0)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (3)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2017 by Animus Pactum Consulting. All rights reserved. Privacy Information