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

Home > General > Word Problems
Three vowels (Posted on 2016-06-21) Difficulty: 3 of 5
I’m on vacation. The name of the city I’m staying in now has three identical vowels in it (and no other vowels).
Same applies to the country I’m in, albeit with another vowel.

By now I know that the above statements do not uniquely identify my location, so your solutions may list some other places answering the above description.

Please provide your suggestions – the more the merrier…

No Solution Yet Submitted by Ady TZIDON    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
A lot of computer work... | Comment 2 of 4 |
... for only one city: Toronto, Canada.

I went to the city list on Wikipedia and went to each of the letters of the alphabet a city name could begin with, copied the tables (two columns: city and country) into one Excel spreadsheet, saved the sheet as a tab-delimited text file, and had a program search the 3517 city names and came up with only one.

The Wikipedia article show only cities of 100,000 people or more so I didn't get the smaller towns on armando's list.  I wonder how he found so many.

DefDbl A-Z
Dim crlf$


Private Sub Form_Load()
 Form1.Visible = True
 
 
 Text1.Text = ""
 crlf = Chr$(13) + Chr$(10)
 
 Open "City list.txt" For Input As #1
 Do
  DoEvents
   Line Input #1, l$
   ix = InStr(l, Chr(9))
   city$ = Left(l, ix - 1)
   country$ = Mid(l, ix + 1)
   cityv$ = "": countryv$ = ""
   For i = 1 To Len(city)
     If InStr("aeiouy", Mid(city, i, 1)) > 0 Then
       cityv = cityv + Mid(city, i, 1)
     End If
   Next
   If Len(cityv) = 3 Then
     If Left(cityv, 1) = Mid(cityv, 2, 1) And Left(cityv, 1) = Right(cityv, 1) Then
     
   For i = 1 To Len(country)
     If InStr("aeiouy", Mid(country, i, 1)) > 0 Then
       countryv = countryv + Mid(country, i, 1)
     End If
   Next
   If Len(countryv) = 3 Then
     If Left(countryv, 1) = Mid(countryv, 2, 1) And Left(countryv, 1) = Right(countryv, 1) Then
     
        Text1.Text = Text1.Text & city & "   " & country & crlf
     
     End If
   End If
   
   
     End If
   End If
 Loop Until EOF(1)
   
 Close 1
 
 Text1.Text = Text1.Text & " done"
  
End Sub


  Posted by Charlie on 2016-06-21 10:32:32
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