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 |
computer solution
