ふぃぼなっち

完全にブログを書くのをサボっていたわけですが、Lispで簡単なプログラムを書けるとうれしい!という気持ちをシェア〜します。

(defun fibonacci (n)
                  (cond 
                     ((eq n 0) (list 1))
                     ((eq n 1) (list 1 1))
                     ((< 1 n) (let ((prev (fibonacci (- n 1))))
                                (cons (+ 
                                        (car prev)
                                        (cadr prev))
                                      prev)))))

これは過去の記事

mysticdoll.hatenablog.com

Common Lisp再実装で、実はなんもしとらん