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

Home > Numbers
Test #1 (Posted on 2014-07-29) Difficulty: 3 of 5
TZIDON/ADY=TEST

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.)
Solution computer assisted solution Comment 2 of 2 |
DefDbl A-Z
Dim crlf$, used(9)

Private Sub Form_Load()
 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 3873
TZIDON 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
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 (8)
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