Alternade words: Difference between revisions
→{{header|Quackery}}: 2nd version
Drkameleon (talk | contribs) |
(→{{header|Quackery}}: 2nd version) |
||
Line 2,343:
though tog huh
throaty tray hot
triode tid roe
triune tin rue
troupe top rue
truant tun rat
twirly til wry</pre>
A more straightforward approach:
<lang Quackery> [ [] [] rot witheach [ join swap ] ] is unzip ( [ --> [ [ )
[ $ "rosetta/unixdict.txt" sharefile
drop nest$
[] swap witheach
[ [ nested join ]
else drop ] ] constant is unixdict ( --> [ )
unixdict witheach
[ dup size 6 < iff
drop done
dup unzip
unixdict find
unixdict found iff
[ unixdict find
unixdict found iff
[ dup echo$ sp
unzip echo$ sp
echo$ cr ]
else drop ]
else 2drop ]</lang>
{{out}}
<pre style="height: 30ex">accost acs cot
accuse acs cue
afield ail fed
agleam ala gem
alcott act lot
allele all lee
allied ale lid
alpert apr let
ambient min abet
annette net ante
apport apr pot
ariadne ran aide
assist ass sit
battle btl ate
blaine ban lie
brenda bed rna
calliope clip aloe
choose cos hoe
choosy cos hoy
claire car lie
collude old clue
effete eft fee
fabric fbi arc
fealty fat ely
fluent fun let
forwent own fret
friend fin red
george gog ere
inroad ira nod
israel ire sal
jaunty jut any
joanne jan one
lounge lug one
oriole oil roe
oswald owl sad
parrot pro art
peoria poi era
pierre per ire
poodle pol ode
pounce puc one
racial rca ail
realty rat ely
sordid sri odd
spatial pta sail
sprain sri pan
strain sri tan
strait sri tat
sturdy sud try
sweaty set way
tattle ttl ate
theorem hoe term
though tog huh
throaty hot tray
triode tid roe
triune tin rue
| |||