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

 Test #1 (Posted on 2014-07-29)

After solving the above alphametic decode the statements below, adding spaces and punctuation signs:

5688080340453
7450505316053570468

 See The Solution Submitted by Ady TZIDON No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
 computer assisted solution Comment 2 of 2 |
DefDbl A-Z
Dim crlf\$, used(9)

ChDir "C:\Program Files (x86)\DevStudio\VB\projects\flooble"
Text1.Text = ""
crlf\$ = Chr(13) + Chr(10)
Form1.Visible = True
DoEvents

For t = 1 To 9
used(t) = 1
For a = 1 To 9
If used(a) = 0 Then
used(a) = 1
For z = 0 To 9
If used(z) = 0 Then
used(z) = 1
For i = 0 To 9
If used(i) = 0 Then
used(i) = 1
For d = 0 To 9
If used(d) = 0 Then
used(d) = 1
For o = 0 To 9
If used(o) = 0 Then
used(o) = 1
For n = 0 To 9
If used(n) = 0 Then
used(n) = 1
tzidon = 100000 * t + 10000 * z + 1000 * i + 100 * d + 10 * o + n
For y = 0 To 9
If used(y) = 0 Then
used(y) = 1
ady = 100 * a + 10 * d + y
For e = 0 To 9
If used(e) = 0 Then
used(e) = 1
For s = 0 To 9
If used(s) = 0 Then
used(s) = 1

test = 1001 * t + 100 * e + 10 * s
If ady * test = tzidon Then
Text1.Text = Text1.Text & tzidon & Str(ady) & Str(test) & crlf
DoEvents
End If

used(s) = 0
End If
Next
used(e) = 0
End If
Next

used(y) = 0
End If
Next
used(n) = 0
End If
Next
used(o) = 0
End If
Next
used(d) = 0
End If
Next
used(i) = 0
End If
Next
used(z) = 0
End If
Next
used(a) = 0
End If
Next
used(t) = 0
Next

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

finds the first stage:

`395046 102 3873TZIDON ADY TEST`

Using that, I found:

INEEDEDTODOIT
SOIDIDITANDITISDONE

and then

I NEEDED TO DO IT
SO I DID IT AND IT IS DONE.

 Posted by Charlie on 2014-07-29 11:55:29

 Search: Search body:
Forums (0)