Word wheel: Difference between revisions

=={{header|Quackery}}==

<syntaxhighlight lang="Quackery"> [ over find swap found ] is has ( $ c --> b )

[ over find

split 1 split

swap drop join ] is remove ( $ c --> $ )

$ "rosetta/unixdict.txt" sharefile

drop nest$

[] swap

witheach

[ dup size 3 < iff drop done

dup size 9 > iff drop done

dup char k has not iff drop done

dup $ "ndeokgelw"

witheach remove

$ "" != iff drop done

nested join ]

30 wrap$</syntaxhighlight>

{{out}}

<pre>eke elk keel keen keg ken keno knee

kneel knew know knowledge kong leek week

wok woke

</pre>