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

Home > Numbers
On the road again (Posted on 2018-04-10) Difficulty: 3 of 5
True (albeit coded) facts: a year ago i've visited an Europian country named 2831561, to-morrow I'm boarding a flight to another country with a lesser population i.e. 1234561
The digits that could represent the Capital letters of the corresponding capitals of those countries were not mentioned above, but enough is said for you to find the cities and the countries.

See The Solution Submitted by Ady TZIDON    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution computer lists possibilities; logic narrows down to actual answers | Comment 2 of 5 |
croatia less populous than Austria
lesotho not a European country
romania European country more populous than Austria
somalia not a European country

algeria not a European country
armenia not a European country
austria  A European country

B(ucharest) and V(ienna) are their capitals and Capital letters, that can be assigned to 7 and 9.

DefDbl A-Z
Dim crlf$


Private Sub Form_Load()
 Form1.Visible = True
 Text1.Text = ""
 crlf = Chr(13) & Chr(10)
 
 Open "country list.txt" For Input As #1
 Do
   Line Input #1, l$
   l$ = LCase(l)
   good = 1
   For i = 1 To 7
     ix = InStr(l, Mid(l, i, 1))
     If ix <> i And (i <> 7 Or ix <> 4) Then good = 0: Exit For
   Next
   If Len(l) > 7 Then good = 0
   If Mid(l, 4, 1) <> Right(l, 1) Then good = 0
   If good Then Text1.Text = Text1.Text & l & crlf
 Loop Until EOF(1)
 Close 1
 
 Text1.Text = Text1.Text & crlf
 
 Open "country list.txt" For Input As #1
 Do
   Line Input #1, l$
   l$ = LCase(l)
   good = 1
   For i = 1 To 7
     ix = InStr(l, Mid(l, i, 1))
     If ix <> i And (i <> 7 Or ix <> 1) Then good = 0: Exit For
   Next
   If Len(l) > 7 Then good = 0
   If Mid(l, 1, 1) <> Right(l, 1) Then good = 0
   If good Then Text1.Text = Text1.Text & l & crlf
 Loop Until EOF(1)
 Close 1
 
 
 
 Text1.Text = Text1.Text & crlf & " done"
  
End Sub


  Posted by Charlie on 2018-04-10 10:10:15
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 (3)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

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