# 2009/02/03(Tue) : Scheme を作ろう 8

再帰ができるようになった。
(begin
(define f (lambda (n) (if (= n 0) 1 (* n (f (- n 1))))))
(f 8))
;=> 40320

[TOP] [ALL]

© 2005-2010 M-OZ SOFT.
Powered by Gauche Ver.0.8.10