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

Home > Numbers
How high the moon tonight (Posted on 2016-02-10) Difficulty: 2 of 5
HOWHIGH-THEMOON=TONIGHT

2 67 3624250 for a quick answer.

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
DefDbl A-Z
Dim crlf$, used(9)


Private Sub Form_Load()
 Form1.Visible = True
 
 Text1.Text = ""
 crlf = Chr$(13) + Chr$(10)
 
 For h = 1 To 9
   used(h) = 1
 For t = 1 To 9
  If used(t) = 0 Then
   used(t) = 1
 For o = 0 To 9
  If used(o) = 0 Then
   used(o) = 1
 For w = 0 To 9
  If used(w) = 0 Then
   used(w) = 1
 For i = 0 To 9
  If used(i) = 0 Then
   used(i) = 1
 For g = 0 To 9
  If used(g) = 0 Then
   used(g) = 1
 For e = 0 To 9
  If used(e) = 0 Then
   used(e) = 1
 For m = 0 To 9
  If used(m) = 0 Then
   used(m) = 1
 For n = 0 To 9
  If used(n) = 0 Then
   used(n) = 1
   howhigh = h * 1001001 + o * 100000 + w * 10000 + i * 100 + g * 10
   themoon = 1000000 * t + 100000 * h + 10000 * e + 1000 * m + 110 * o + n
   tonight = 1000001 * t + 100000 * o + 10000 * n + 1000 * i + 100 * g + 10 * h
   If howhigh = tonight + themoon Then
     Text1.Text = Text1.Text & howhigh & "  " & themoon & "  " & tonight & crlf
   End If
   used(n) = 0
  End If
 Next
   used(m) = 0
  End If
 Next
   used(e) = 0
  End If
 Next
   used(g) = 0
  End If
 Next
   used(i) = 0
  End If
 Next
   used(w) = 0
  End If
 Next
   used(o) = 0
  End If
 Next
   used(t) = 0
  End If
 Next
   used(h) = 0
 Next

 Text1.Text = Text1.Text & crlf & " done"
  
End Sub

finds

9139209  4987115  4152094  for
HOWHIGH  THEMOON  TONIGHT

So

2 67 3624250 is
I AM WAITING        for a quick answer.

  Posted by Charlie on 2016-02-10 12:36:36
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