17 lines
363 B
Text
17 lines
363 B
Text
[]
|
|
$ "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 ]
|