7 lines
252 B
Text
7 lines
252 B
Text
(let Semordnilap
|
|
(mapcon
|
|
'((Lst)
|
|
(when (member (reverse (car Lst)) (cdr Lst))
|
|
(cons (pack (car Lst))) ) )
|
|
(make (in "unixdict.txt" (while (line) (link @)))) )
|
|
(println (length Semordnilap) (head 5 Semordnilap)) )
|