4 lines
130 B
Common Lisp
4 lines
130 B
Common Lisp
(flip
|
|
(by length sort
|
|
(by '((L) (sort (copy L))) group
|
|
(in "unixdict.txt" (make (while (line) (link @)))) ) ) )
|