Anagrams: Difference between revisions
Added Quackery.
(Added Quackery.) |
|||
Line 6,357:
bale, abel, able, elba, bela
</lang>
=={{header|Quackery}}==
<lang Quackery> $ "rosetta/unixdict.txt" sharefile drop nest$
[] over witheach [ sort nested join ]
sort$
[ dup [] [] rot
witheach
[ tuck = if [ tuck nested join swap ] ]
drop
dup [] != while
nip again ]
drop
witheach
[ over witheach
[ 2dup sort = iff [ echo$ sp ] else drop ]
drop cr ]
drop</lang>
{{out}}
<pre>abel able bale bela elba
caret carte cater crate trace
angel angle galen glean lange
alger glare lager large regal
elan lane lean lena neal
evil levi live veil vile
</pre>
=={{header|R}}==
| |||