Semordnilap: Difference between revisions
Added Quackery.
(Updated to work with Nim 1.4. Replaced "sort" with the easier "sortByIt".) |
(Added Quackery.) |
||
Line 2,732:
...
</pre>
=={{header|Quackery}}==
<lang Quackery> []
$ "rosetta/unixdict.txt" sharefile drop
nest$
[ behead reverse swap
2dup find over found iff
[ dip [ nested join ] ]
else nip
dup [] = until ]
drop
say "Number of semordnilaps: "
dup size echo cr
sortwith [ size swap size > ]
5 split drop
say "Five longest: "
witheach
[ dup echo$ say "<->"
reverse echo$ sp ]</lang>
{{out}}
<pre>Number of semordnilaps: 158
Five longest: remark<->kramer nomad<->damon regal<->lager repel<->leper revel<->lever
</pre>
=={{header|Racket}}==
| |||