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

Home > Just Math
Austria or Italy ? (Posted on 2014-11-11) Difficulty: 3 of 5
The alphametics

SOME*DAY=VERONA
and
SOME*DAY=VIENNA

have unique, albeit distinct solutions.

Which V gets a higher digit?

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()
 ChDir "C:\Program Files (x86)\DevStudio\VB\projects\flooble"
 Text1.Text = ""
 crlf$ = Chr(13) + Chr(10)
 Form1.Visible = True
 DoEvents
 
 For s = 1 To 9
  used(s) = 1
 For d = 1 To 9
  If used(d) = 0 Then
    used(d) = 1
 For o = 0 To 9
  If used(o) = 0 Then
    used(o) = 1
 For m = 0 To 9
  If used(m) = 0 Then
    used(m) = 1
 For e = 0 To 9
  If used(e) = 0 Then
    used(e) = 1
    somev = 1000 * s + 100 * o + 10 * m + e
 For a = 0 To 9
  If used(a) = 0 Then
    used(a) = 1
 For y = 0 To 9
  If used(y) = 0 Then
    used(y) = 1
    dayv = 100 * d + 10 * a + y
    prod = somev * dayv
    If prod > 99999 And prod < 999999 Then
      p$ = LTrim(Str(prod))
      v = Val(Mid(p, 1, 1))
      r = Val(Mid(p, 3, 1))
      n = Val(Mid(p, 5, 1))
      If used(v) = 0 And used(r) = 0 And used(n) = 0 Then
        If v <> r And r <> n And v <> n Then
          If e = Val(Mid(p, 2, 1)) And o = Val(Mid(p, 4, 1)) And a = Val(Mid(p, 6, 1)) Then
            Text1.Text = Text1.Text & somev & Str(dayv) & Str(p) & crlf
          End If
        End If
      End If
      i = Val(Mid(p, 2, 1))
      n = Val(Mid(p, 4, 1))
      If used(v) = 0 And used(i) = 0 And used(n) = 0 Then
        If v <> i And i <> n And v <> n Then
          If e = Val(Mid(p, 3, 1)) And n = Val(Mid(p, 5, 1)) And a = Val(Mid(p, 6, 1)) Then
            Text1.Text = Text1.Text & somev & Str(dayv) & Str(p) & crlf
          End If
        End If
      End If
    End If
    used(y) = 0
  End If
 Next
    used(a) = 0
  End If
 Next
    used(e) = 0
  End If
 Next
    used(m) = 0
  End If
 Next
    used(o) = 0
  End If
 Next
    used(d) = 0
  End If
 Next d
  used(s) = 0
 Next s
   
 Text1.Text = Text1.Text & "done" & crlf
 
End Sub

finds

1238 605 748990
6837 142 970854

The first is the Vienna version, so Verona has the higher V (= 9).

  Posted by Charlie on 2014-11-11 15:44:30
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 (5)
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