2007-05-03から1日間の記事一覧
Yコンビネータをcommonlispで http://d.hatena.ne.jp/sumii/20051203/1133575324 にschemeで買いてあったから勉強のついでにcommonlispに書き直す。 難しいなぁ。。。 ;;再帰している関数 ;; (defun fun(n) ;; (if (zerop n) ;; 0 ;; (+ n (fun (1- n))))) ;…
Yコンビネータをcommonlispで http://d.hatena.ne.jp/sumii/20051203/1133575324 にschemeで買いてあったから勉強のついでにcommonlispに書き直す。 難しいなぁ。。。 ;;再帰している関数 ;; (defun fun(n) ;; (if (zerop n) ;; 0 ;; (+ n (fun (1- n))))) ;…