flatten
今日も今日とて、電車でぷちぷち Emacs Lispプログラミング。今日は flatten。
> (flatten '(1 (2 3 (4 5)) ((6)))) (1 2 3 4 5 6)
オレ版
(defun flatten (lst) (let ( (acc nil) ) (labels *1 (rec (cdr lst)))))) (rec lst)) (reverse acc)))
今日も今日とて、電車でぷちぷち Emacs Lispプログラミング。今日は flatten。
> (flatten '(1 (2 3 (4 5)) ((6)))) (1 2 3 4 5 6)
(defun flatten (lst) (let ( (acc nil) ) (labels *1 (rec (cdr lst)))))) (rec lst)) (reverse acc)))