Anagrams: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 6,357: | Line 6,357: | ||
bale, abel, able, elba, bela |
bale, abel, able, elba, bela |
||
</lang> |
</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}}== |
=={{header|R}}== |