不動点演算子
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))))) ;…