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

Home > Just Math
a NEWS puzzle (Posted on 2018-06-07) Difficulty: 4 of 5
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.)
Solution computer solution Comment 1 of 1
 67104*3820=9320*27504
 NORTH EAST WEST SOUTH

from

DefDbl A-Z
Dim crlf$


Private Sub Form_Load()
 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
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 (5)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

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