((Common Lisp) (Scheme) :Part 15)
■ このスレッドは過去ログ倉庫に格納されています
0722デフォルトの名無しさん
2006/12/29(金) 22:17:24letrecでやりたけりゃこうなる。
(define (fact n)
(letrec ((fact-sub (lambda(a n)
(if (= n 0) a
(fact-sub (* a n) (- n 1))))))
(fact-sub 1 n)))
■ このスレッドは過去ログ倉庫に格納されています