Anonymous user
Ordered words: Difference between revisions
m
Fix functional CL dict path
imported>GoulashAmateur (Add functional Common Lisp version) |
imported>GoulashAmateur m (Fix functional CL dict path) |
||
Line 1,357:
(apply #'char<= (coerce word 'list)))
(let* ((words (uiop:read-file-lines "
(ordered (delete-if-not #'orderedp words))
(maxlen (apply #'max (mapcar #'length ordered)))
|