fd81221a8e
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11708 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
9 lines
119 B
Scheme
9 lines
119 B
Scheme
(define (fact n)
|
|
(if (< n 2)
|
|
1
|
|
(* n (fact (- n 1)))))
|
|
|
|
(dotimes (i 10000)
|
|
(fact 100))
|
|
|