Skip to content

Instantly share code, notes, and snippets.

@daniel-cussen

daniel-cussen/gist:858853

Created March 7, 2011 17:38
Show Gist options
  • Save daniel-cussen/858853 to your computer and use it in GitHub Desktop.
Save daniel-cussen/858853 to your computer and use it in GitHub Desktop.
Download ZIP
#'flatten
Raw
gistfile1.cl
(defun flatten (x)
(labels ((rec (x acc)
(cond ((null x) acc)
((atom x) (cons x acc))
((null (car x)) (cons nil (rec (cdr x) acc)))
(t (rec (car x) (rec (cdr x) acc))))))
(rec x nil)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment