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

Home > General > Word Problems
scitemahpla II (Posted on 2014-06-25) Difficulty: 4 of 5
966402+80963=1047365 (eq.1)

is a solution of normal addition alphametics based upon 3 non-esoteric English words.

Submit your set of words fitting the given output.
Your triplet of words (not necessarily the one that generated this puzzle) should have only one solution i.e. eq.1 .

No Solution Yet Submitted by Ady TZIDON    
Rating: 2.0000 (2 votes)

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution solution | Comment 2 of 5 |
ACCORD + BRACE = PROJECT has only the one solution, found by the below program.  Any other fitting set of letters would also have the same single solution, as the names of the variables doesn't matter, so long as they are distinct.

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 a = 1 To 9
  If used(a) = 0 Then
   used(a) = 1
 For b = 1 To 9
  If used(b) = 0 Then
   used(b) = 1
 For p = 1 To 9
  If used(p) = 0 Then
   used(p) = 1
 For c = 0 To 9
  If used(c) = 0 Then
   used(c) = 1
 For o = 0 To 9
  If used(o) = 0 Then
   used(o) = 1
 For r = 0 To 9
  If used(r) = 0 Then
   used(r) = 1
 For d = 0 To 9
  If used(d) = 0 Then
   used(d) = 1
   accord = 100000 * a + 11000 * c + 100 * o + 10 * r + d
 For e = 0 To 9
  If used(e) = 0 Then
   used(e) = 1
   brace = 10000 * b + 1000 * r + 100 * a + 10 * c + e
 For j = 0 To 9
  If used(j) = 0 Then
   used(j) = 1
 For t = 0 To 9
  If used(t) = 0 Then
   used(t) = 1
   project = 1000000 * p + 100000 * r + 10000 * o + 1000 * j + 100 * e + 10 * c + t
   If accord + brace = project Then
    Text1.Text = Text1.Text & accord & Str(brace) & Str(project) & crlf
    DoEvents
   End If
   used(t) = 0
  End If
 Next
   used(j) = 0
  End If
 Next
   used(e) = 0
  End If
 Next
   used(d) = 0
  End If
 Next
   used(r) = 0
  End If
 Next
   used(o) = 0
  End If
 Next
   used(c) = 0
  End If
 Next
   used(p) = 0
  End If
 Next
   used(b) = 0
  End If
 Next
   used(a) = 0
  End If
 Next
End Sub


  Posted by Charlie on 2014-06-25 12:56:11
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 (13)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

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