Semordnilap: Difference between revisions

=={{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>