6 lines
192 B
Common Lisp
6 lines
192 B
Common Lisp
(in "unixdict.txt"
|
|
(mapc prinl
|
|
(maxi '((L) (length (car L)))
|
|
(by length group
|
|
(filter '((S) (apply <= S))
|
|
(make (while (line) (link @))) ) ) ) ) )
|