EXZBY+FAEFA+CGBZAE+ZGYB+DEFCE+DBCGXE=XBXBFB
Replace the BOLD LETTERS above by appropriate letters of English ABC
- you'll get a nice alphametic puzzle based on seven US Cities.
List the cities, their states and solve the alphametic.
Starting with seeing XBXBFB as KOKOMO from its quite apparent pattern, then EXZBY as AKRON, Reno and Tampa fall into place, etc. and I get:
AKRON MIAMI PEORIA RENO TAMPA TOPEKA KOKOMO
EXZBY FAEFA CGBZAE ZGYB DEFCE DBCGXE XBXBFB
either of which solves to
47918+50450+261904+9681+34524+312674=717151
The program shown at bottom presents, for the cities in order:
5836 74074 193840 8963 20710 231950 535373
47918 50450 261904 9681 34524 312674 717151
19832 65165 43851 8423 71601 730491 939363
The first row has 0 for the leading A in AKRON, and the last row has 0 for the leading P in PEORIA. Only the middle row has no leading zeros.
DefDbl A-Z
Dim crlf$, s$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr(13) & Chr(10)
s$ = "AKRONMIPET"
h$ = s
Do
akron = conv("AKRON")
miami = conv("MIAMI")
peoria = conv("PEORIA")
reno = conv("RENO")
tampa = conv("TAMPA")
topeka = conv("TOPEKA")
kokomo = conv("KOKOMO")
If akron + miami + peoria + reno + tampa + topeka = kokomo Then
Text1.Text = Text1.Text & Str(akron) & Str(miami) & Str(peoria) & Str(reno) & Str(tampa) & Str(topeka) & Str(kokomo) & crlf
End If
DoEvents
permute s
Loop Until s = h
Text1.Text = Text1.Text & crlf & ct & " done"
End Sub
Function conv(x$)
v$ = ""
For i = 1 To Len(x)
ix = InStr(s$, Mid(x, i, 1))
v = v + LTrim(Str(ix - 1))
Next
conv = Val(v)
End Function
|
|
Posted by Charlie
on 2018-03-20 15:05:39 |
computer solution
