6 lines
140 B
Text
6 lines
140 B
Text
|
(mapc prinl
|
||
|
|
(maxi '((L) (length (car L)))
|
||
|
|
(by length group
|
||
|
|
(in NIL
|
||
|
|
(make (until (eof) (link (line)))) ) ) ) )
|