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

Home > General > Word Problems
PentaWord 3 - Vowel Ring (Posted on 2011-12-28) Difficulty: 4 of 5
Substitute the red numerals, 0 to 9, with a unique letter to form five 4-letter words which read in the direction of the arrows; the 5 vowels (A,E I, O and U) are to occupy the inner "ring" of the pentagram.

No one specific solution is sought but please attempt to offer words that are in common usage.


See The Solution Submitted by brianjn    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
Solution computer solution | Comment 2 of 5 |

OPEN "\words\words4.txt" FOR BINARY AS #1
OPEN "vwlring.txt" FOR OUTPUT AS #2
w$ = SPACE$(4)
DIM wd$(410)
CLS
DO
  GET #1, , w$
  IF EOF(1) THEN EXIT DO
  IF INSTR("aeiou", MID$(w$, 2, 1)) > 0 AND INSTR("aeiou", MID$(w$, 3, 1)) > 0 THEN
    IF MID$(w$, 2, 1) <> MID$(w$, 3, 1) THEN
      ct = ct + 1
      wd$(ct) = w$
    END IF
  END IF
LOOP
CLOSE 1
PRINT ct

FOR w1 = 1 TO ct
  wd1$ = wd$(w1)
FOR w2 = 1 TO ct
  wd2$ = wd$(w2)
  IF LEFT$(wd2$, 1) = LEFT$(wd1$, 1) THEN
    IF MID$(wd1$, 2, 1) <> MID$(wd2$, 2, 1) AND MID$(wd1$, 2, 1) <> MID$(wd2$, 3, 1) AND MID$(wd1$, 3, 1) <> MID$(wd2$, 2, 1) AND MID$(wd1$, 3, 1) <> MID$(wd2$, 3, 1) THEN
FOR w3 = 1 TO ct
  wd3$ = wd$(w3)

IF MID$(wd3$, 2, 1) = MID$(wd1$, 3, 1) AND MID$(wd3$, 3, 1) <> MID$(wd2$, 2, 1) AND MID$(wd3$, 3, 1) <> MID$(wd1$, 2, 1) AND MID$(wd3$, 3, 1) <> MID$(wd2$, 3, 1) AND MID$(wd3$, 4, 1) = MID$(wd2$, 4, 1) THEN
FOR w4 = 1 TO ct
  wd4$ = wd$(w4)
    IF LEFT$(wd3$, 1) = LEFT$(wd4$, 1) THEN
      IF MID$(wd4$, 2, 1) = MID$(wd1$, 2, 1) AND MID$(wd4$, 3, 1) = MID$(wd2$, 2, 1) THEN
FOR w5 = 1 TO ct
    wd5$ = wd$(w5)
    IF LEFT$(wd5$, 1) = RIGHT$(wd4$, 1) THEN
        IF MID$(wd5$, 2, 1) = MID$(wd2$, 3, 1) AND MID$(wd5$, 3, 1) = MID$(wd3$, 3, 1) AND MID$(wd5$, 4, 1) = MID$(wd1$, 4, 1) THEN
          PRINT wd1$, wd2$, wd3$, wd4$, wd5$
          PRINT #2, wd1$, wd2$, wd3$, wd4$, wd5$
          sct = sct + 1
        END IF
    END IF
NEXT w5
      END IF
    END IF
NEXT w4
END IF

NEXT w3
    END IF
  END IF
NEXT w2
NEXT w1
PRINT sct
CLOSE 2

The output of that was filtered through the following program which deleted obscure words:

OPEN "vwlring.txt" FOR INPUT AS #1
OPEN "vowlring.txt" FOR OUTPUT AS #2
CLS
DO
   INPUT #1, l$
   bad = 0
   IF INSTR(l$, "lues") OR INSTR(l$, "vaus") OR INSTR(l$, "doum") OR INSTR(l$, "toit") OR INSTR(l$, "gied") THEN bad = 1
   IF INSTR(l$, "caid") OR INSTR(l$, "ceil") OR INSTR(l$, "deil") OR INSTR(l$, "pias") OR INSTR(l$, "riel") THEN bad = 1
   IF INSTR(l$, "coir") OR INSTR(l$, "roup") OR INSTR(l$, "duit") OR INSTR(l$, "daut") OR INSTR(l$, "gies") THEN bad = 1
   IF INSTR(l$, "moil") OR INSTR(l$, "foin") OR INSTR(l$, "lour") OR INSTR(l$, "diol") OR INSTR(l$, "fiar") THEN bad = 1
   IF INSTR(l$, "pial") OR INSTR(l$, "duad") OR INSTR(l$, "cuif") OR INSTR(l$, "toit") OR INSTR(l$, "vaus") THEN bad = 1
   IF INSTR(l$, "feod") OR INSTR(l$, "gien") OR INSTR(l$, "diol") OR INSTR(l$, "lour") OR INSTR(l$, "gied") THEN bad = 1
   IF INSTR(l$, "jauk") OR INSTR(l$, "doat") OR INSTR(l$, "jeon") OR INSTR(l$, "guan") OR INSTR(l$, "kief") THEN bad = 1
   IF INSTR(l$, "koas") OR INSTR(l$, "kues") OR INSTR(l$, "qaid") OR INSTR(l$, "reif") OR INSTR(l$, "meou") THEN bad = 1
   IF INSTR(l$, "tain") OR INSTR(l$, "neum") OR INSTR(l$, "pial") OR INSTR(l$, "pian") OR INSTR(l$, "waes") THEN bad = 1
   IF INSTR(l$, "seis") OR INSTR(l$, "waul") OR INSTR(l$, "waur") THEN bad = 1
   IF INSTR(l$, "doit") OR INSTR(l$, "fain") OR INSTR(l$, "feus") THEN bad = 1
   IF INSTR(l$, "gaes") OR INSTR(l$, "guid") OR INSTR(l$, "gaed") THEN bad = 1
   IF INSTR(l$, "rias") OR INSTR(l$, "leud") OR INSTR(l$, "sain") THEN bad = 1
   IF INSTR(l$, "maun") OR INSTR(l$, "nous") OR INSTR(l$, "haen") THEN bad = 1
   IF INSTR(l$, "pein") OR INSTR(l$, "tuis") OR INSTR(l$, "tael") THEN bad = 1
   IF INSTR(l$, "kier") OR INSTR(l$, "taos") OR INSTR(l$, "souk") THEN bad = 1
   IF INSTR(l$, "keir") OR INSTR(l$, "lief") OR INSTR(l$, "naos") THEN bad = 1
   IF INSTR(l$, "paen") OR INSTR(l$, "maud") OR INSTR(l$, "pois") THEN bad = 1
   IF INSTR(l$, "haut") OR INSTR(l$, "sous") THEN bad = 1
   IF INSTR(l$, "gaen") OR INSTR(l$, "seif") THEN bad = 1
   IF bad = 0 THEN PRINT #2, l$
LOOP UNTIL EOF(1)

CLOSE

The results:


0134          0976          2356          2198          8754
bios          bear          dour          diet          taus
boil          baud          lied          load          duel
boil          baud          lied          loaf          fuel
boil          baud          tied          toad          duel
coil          cues          bias          bout          teal
dais          duos          lies          laud          does
dais          duos          ties          taut          toes
dour          dais          cues          coal          lier
dour          dais          cues          coat          tier
dour          dais          sues          soap          pier
duos          dais          does          dual          lies
duos          deaf          coif          cued          dais
duos          deal          coil          cued          dais
duos          deal          roil          rued          dais
duos          deal          soil          sued          dais
duos          dean          coin          cued          dais
foil          faun          lien          load          duel
foil          faun          lien          loaf          fuel
foil          fuel          dial          dour          real
foil          fuel          rial          rout          teal
foil          fuel          sial          soul          leal
foil          fuel          sial          soup          peal
foil          fuel          sial          sour          real
foul          fair          ruer          road          diel
four          fail          fuel          foal          lier
four          fair          suer          soap          pier
fuel          foil          deal          duos          sial
hour          hail          fuel          foal          lier
hour          hair          suer          soap          pier
lion          leal          foul          fief          faun
lion          lear          four          fief          faun
loud          laid          cued          coal          lied
loud          laid          cued          coat          tied
loud          laid          rued          road          died
loud          laid          sued          soap          pied
loud          lair          ruer          road          died
loud          lair          suer          soap          pied
loud          lean          ruin          roes          said
loup          lieu          luau          loin          neap
lout          laid          rued          road          diet
lout          lair          ruer          road          diet
lout          lieu          luau          loin          neat
maid          muon          mien          maut          toed
mair          muon          lien          laud          doer
muon          mair          doer          dual          lien
muon          meal          foil          fuel          lain
muon          meal          roil          ruer          rain
muon          meal          soil          suer          rain
noun          nail          fuel          foal          lien
noun          nail          fuel          foam          mien
pion          peal          foul          fief          faun
pion          pear          four          fief          faun
pour          paid          cued          coal          lier
pour          paid          cued          coat          tier
pour          paid          sued          soap          pier
pour          pail          fuel          foal          lier
pour          pair          suer          soap          pier
pout          paid          rued          road          diet
pout          pair          ruer          road          diet
riot          rear          dour          diet          taut
roan          rued          paid          pour          rein
roan          rued          said          sour          rein
roan          ruer          fair          four          rein
roan          ruer          hair          hour          rein
roan          ruer          pair          pour          rein
roan          rues          dais          dour          rein
roil          ruer          liar          loud          deal
roil          ruer          liar          loup          peal
roil          ruer          liar          lout          teal
roil          rues          bias          bout          teal
rout          raid          rued          road          diet
rued          riot          seat          suit          toad
ruin          roes          bias          buoy          yean
soil          suer          liar          loud          deal
soil          suer          liar          loup          peal
soil          suer          liar          lout          teal
soil          sues          bias          bout          teal
soil          suet          fiat          foul          leal
soil          suet          fiat          four          real
soul          said          rued          road          diel
sour          said          cued          coal          lier
sour          said          cued          coat          tier
sour          said          sued          soap          pier
sour          sail          fuel          foal          lier
toil          taus          lies          load          duel
toil          taus          lies          loaf          fuel
toil          taus          ties          toad          duel
tour          tail          fuel          foal          lier

  Posted by Charlie on 2011-12-28 13:48:38
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 (4)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

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