24 lines
422 B
Text
24 lines
422 B
Text
( get'("unixdict.txt",STR):?dict
|
|
& new$hash:?H
|
|
& 0:?p
|
|
& ( @( !dict
|
|
: ?
|
|
( [!p ?w \n [?p ?
|
|
& (H..insert)$(!w.rev$!w)
|
|
& ~
|
|
)
|
|
)
|
|
| 0:?N
|
|
& (H..forall)
|
|
$ (
|
|
=
|
|
. !arg:(?a.?b)
|
|
& !a:<!b
|
|
& (H..find)$!b
|
|
& !N+1:?N:<6
|
|
& out$(!a !b)
|
|
|
|
|
)
|
|
& out$(semordnilap !N dnuoF)
|
|
)
|
|
);
|