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

 PentaWord 3 - Vowel Ring (Posted on 2011-12-28)
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.)
 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          8754bios          bear          dour          diet          tausboil          baud          lied          load          duelboil          baud          lied          loaf          fuelboil          baud          tied          toad          duelcoil          cues          bias          bout          tealdais          duos          lies          laud          doesdais          duos          ties          taut          toesdour          dais          cues          coal          lierdour          dais          cues          coat          tierdour          dais          sues          soap          pierduos          dais          does          dual          liesduos          deaf          coif          cued          daisduos          deal          coil          cued          daisduos          deal          roil          rued          daisduos          deal          soil          sued          daisduos          dean          coin          cued          daisfoil          faun          lien          load          duelfoil          faun          lien          loaf          fuelfoil          fuel          dial          dour          realfoil          fuel          rial          rout          tealfoil          fuel          sial          soul          lealfoil          fuel          sial          soup          pealfoil          fuel          sial          sour          realfoul          fair          ruer          road          dielfour          fail          fuel          foal          lierfour          fair          suer          soap          pierfuel          foil          deal          duos          sialhour          hail          fuel          foal          lierhour          hair          suer          soap          pierlion          leal          foul          fief          faunlion          lear          four          fief          faunloud          laid          cued          coal          liedloud          laid          cued          coat          tiedloud          laid          rued          road          diedloud          laid          sued          soap          piedloud          lair          ruer          road          diedloud          lair          suer          soap          piedloud          lean          ruin          roes          saidloup          lieu          luau          loin          neaplout          laid          rued          road          dietlout          lair          ruer          road          dietlout          lieu          luau          loin          neatmaid          muon          mien          maut          toedmair          muon          lien          laud          doermuon          mair          doer          dual          lienmuon          meal          foil          fuel          lainmuon          meal          roil          ruer          rainmuon          meal          soil          suer          rainnoun          nail          fuel          foal          liennoun          nail          fuel          foam          mienpion          peal          foul          fief          faunpion          pear          four          fief          faunpour          paid          cued          coal          lierpour          paid          cued          coat          tierpour          paid          sued          soap          pierpour          pail          fuel          foal          lierpour          pair          suer          soap          pierpout          paid          rued          road          dietpout          pair          ruer          road          dietriot          rear          dour          diet          tautroan          rued          paid          pour          reinroan          rued          said          sour          reinroan          ruer          fair          four          reinroan          ruer          hair          hour          reinroan          ruer          pair          pour          reinroan          rues          dais          dour          reinroil          ruer          liar          loud          dealroil          ruer          liar          loup          pealroil          ruer          liar          lout          tealroil          rues          bias          bout          tealrout          raid          rued          road          dietrued          riot          seat          suit          toadruin          roes          bias          buoy          yeansoil          suer          liar          loud          dealsoil          suer          liar          loup          pealsoil          suer          liar          lout          tealsoil          sues          bias          bout          tealsoil          suet          fiat          foul          lealsoil          suet          fiat          four          realsoul          said          rued          road          dielsour          said          cued          coal          liersour          said          cued          coat          tiersour          said          sued          soap          piersour          sail          fuel          foal          liertoil          taus          lies          load          dueltoil          taus          lies          loaf          fueltoil          taus          ties          toad          dueltour          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 (2)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2013 by Animus Pactum Consulting. All rights reserved. Privacy Information
This Ad: FastClick