Plaster
New
List
Login
common-lisp
default
anonymous
2019.05.17 13:55:09
(defun compress (L) (if (null L) () (if (eq (car L) (car (cdr L))) (compress (append (list (car L)) (cdr (cdr L)))) (append (list (car L)) (compress (cdr L))))))
Raw
Annotate
Repaste
Edit