2010-04-19から1日間の記事一覧
一つ前の記事でビルド方法を書いた、Common Lisp処理系「XCL」のメモなどを書いておきます。 関数をコンパイルして高速に動作させる とりあえず、 (defun tak (x y z) (if (<= x y) y (tak (tak (- x 1) y z) (tak (- y 1) z x) (tak (- z 1) x y)))) この関…
一つ前の記事でビルド方法を書いた、Common Lisp処理系「XCL」のメモなどを書いておきます。 関数をコンパイルして高速に動作させる とりあえず、 (defun tak (x y z) (if (<= x y) y (tak (tak (- x 1) y z) (tak (- y 1) z x) (tak (- z 1) x y)))) この関…