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

 a NEWS puzzle (Posted on 2018-06-07)
NORTH*EAST=WEST*SOUTH

Each letter stands for a certain digit - there is only one solution...

 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
``` 67104*3820=9320*27504
NORTH EAST WEST SOUTH```

from

DefDbl A-Z
Dim crlf\$

Form1.Visible = True
Text1.Text = ""
crlf = Chr(13) + Chr(10)
'     northeaswu
s\$ = "1234567890": hld\$ = s
Do
If InStr(s, "0") > 1 And Mid(s, 6, 1) <> "0" And Mid(s, 8, 1) <> "0" And Mid(s, 9, 1) <> "0" Then
north = Val(Left(s, 5))
east = Val(Mid(s, 6, 3) + Mid(s, 4, 1))
west = Val(Mid(s, 9, 1) + Mid(s, 6, 1) + Mid(s, 8, 1) + Mid(s, 4, 1))
south = Val(Mid(s, 8, 1) + Mid(s, 2, 1) + Mid(s, 10, 1) + Mid(s, 4, 2))
End If
If north * east = west * south Then Text1.Text = Text1.Text & Str(north) & Str(east) & Str(west) & Str(south) & crlf
DoEvents
permute s
Loop Until s = hld

Text1.Text = Text1.Text & crlf & " done"
DoEvents

End Sub

 Posted by Charlie on 2018-06-07 16:43:27

 Search: Search body:
Forums (0)