2009-02-12から1日間の記事一覧
昨日の関数 flatten を改良してみました。 concat を呼ぶごとに cons セルが生成されていたところが省けて、少し軽くなった筈です。 (defun flatten2 (tree) (reverse (flatten-rec tree nil))) (defun flatten-rec (tree stack) (if tree (if (atom tree) (…
昨日の関数 flatten を改良してみました。 concat を呼ぶごとに cons セルが生成されていたところが省けて、少し軽くなった筈です。 (defun flatten2 (tree) (reverse (flatten-rec tree nil))) (defun flatten-rec (tree stack) (if tree (if (atom tree) (…