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

Home > General > Word Problems
Taramasalata inspired world (Posted on 2019-04-01) Difficulty: 3 of 5
Let's compile a ist of all geographic/geopolitical entities whose names contain at least 3 letters A and no other vowels.

Include states (like Alabama), rivers (Angara), mountains (Ararat), cities (Larnaca) etc.

Your entries must appear in reliable dictionary/atlas/database.

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

Comments: ( Back to comment list | You must be logged in to post comments.)
more mountains | Comment 10 of 20 |
(In reply to mountains by Charlie)

From a more extensive list on Wikipedia (lower mountains are included, though it professes to be incomplete):


K2
Nanga Parbat
Namcha Barwa
K12
Chamlang
K6
Mana Peak
Shah Dhar
K7
Ama Dablam
Changla
Aracar
Falak Sar
Mount Damavand
Kala Patthar
Shkhara
Amarnath Peak
Mount Ararat
Janga
Sabalan
Mont Blanc
Mount Slaggard
Naltar Peak
Mount Walsh
Mount Harvard
Blanca Peak
La Plata Peak
Mount Shasta
Mönch
Mount Aragats
Latsga
Francs Peak
Mount Dana
Lanín
Mount Adams
Mount Adams
Sahand
Makra Peak
Mount Tasman
Mount Athabasca
Ward Mountain
Mount Ball
Ag Dag
Mount Arakawa
Mount Tahat
Mount Tallac
Mount Arfak
Watzmann
Half Dome
Hajla
Mount Karthala
Mount Tahan
Crna Glava
Mount Asgard
Hallasan
Saca Peak
Mount Adams
Peak 5390
Askja
Parasnath
Mount Kanaga
Rajabasa
Ka?ala
Namamsan
Avala
Hwajangsan

As you can see, I've allowed words such as Mount, Peak or Mont.

 Open "allmountains2.txt" For Input As #1
 Do
    Line Input #1, l$
    If Left(l, 4) = "<tr>" Then
      trset = 1
    Else
        If trset Then
        If Left(l, 6) = "<td><a" Then
          ix1 = InStr(7, l, ">")
          If ix1 > 0 Then
            ix2 = InStr(ix1, l, "<")
            n$ = Mid(l, ix1 + 1, ix2 - ix1 - 1)
            n2$ = LCase(n)
            
            ix = InStr(n2, "mountain")
            If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 8)
            ix = InStr(n2, "mount")
            If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 5)
            ix = InStr(n2, "dome")
            If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 4)
            
            ix = InStr(n2, "mont ")
            If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 5)
            ix = InStr(n2, "massif")
            If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 6)
            ix = InStr(n2, "peak")
            If ix > 0 Then n2 = Left(n2, ix - 1) + Mid(n2, ix + 4)
            
            good = 1
            For i = 1 To Len(n2)
              If InStr("eiouy", Mid(n2, i, 1)) > 0 Then good = 0: Exit For
            Next
  
            If good Then Text1.Text = Text1.Text & n & crlf
          End If
        End If
        End If
        trset = 0
    End If
    DoEvents
 Loop Until EOF(1)
 Close 1


  Posted by Charlie on 2019-04-18 15:27:35
Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (6)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (4)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

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