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

 How high the moon tonight (Posted on 2016-02-10)
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.)
 computer solution Comment 1 of 1
DefDbl A-Z
Dim crlf\$, used(9)

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  forHOWHIGH  THEMOON  TONIGHT`
`So`
`2 67 3624250 isI AM WAITING        for a quick answer.`

 Posted by Charlie on 2016-02-10 12:36:36

 Search: Search body:
Forums (4)