命令的なfilterと、関数的なfilter
昨日書いたfilterは命令的だったなあ。試しに関数的に書き直してみるる。
関数的なfilter
(defun filter (fn lst) (labels *3 (cons val (flt (cdr l)))))))) (flt lst)))
昨日書いたfilterは命令的だったなあ。試しに関数的に書き直してみるる。
(defun filter (fn lst) (labels *3 (cons val (flt (cdr l)))))))) (flt lst)))