RosettaCodeData/Task/Flatten-a-list/Common-Lisp/flatten-a-list-3.lisp

(defun flatten (obj)
  (let (result)
    (labels ((grep (obj)
               (cond ((null obj) nil)
                     ((atom obj) (push obj result))
                     (t (grep (rest obj))
                        (grep (first obj))))))
      (grep obj)
      result)))
Sync 2013-10-27 22:24:23 +00:00			`(defun flatten (obj)`
			`(let (result)`
			`(labels ((grep (obj)`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`(cond ((null obj) nil)`
Sync 2013-10-27 22:24:23 +00:00			`((atom obj) (push obj result))`
			`(t (grep (rest obj))`
			`(grep (first obj))))))`
			`(grep obj)`
			`result)))`