((Common Lisp) (Scheme) :Part 15)
■ このスレッドは過去ログ倉庫に格納されています
0726デフォルトの名無しさん
2006/12/29(金) 22:36:53そうだとしたらそういうマクロを定義すりゃいいだけのこったな。
欲しけりゃ作る。それがLisp系言語の宿命ってもんだ。
(define-syntax letrecf
(syntax-rules ()
((_ (((f args ...) b ...) ...)
body ...)
(letrec ((f (lambda(args ...) b ...)) ...)
body ...))))
(define (fact n)
(letrecf (((fact-sub a n)
(if (= n 0) a
(fact-sub (* a n) (- n 1)))))
(fact-sub 1 n)))
■ このスレッドは過去ログ倉庫に格納されています