mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
a3e1b1ce7e
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11439 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
8 lines
127 B
Scheme
8 lines
127 B
Scheme
(define (fact n)
|
|
(if (< n 2)
|
|
1
|
|
(* n (fact (- n 1)))))
|
|
|
|
(dotimes (i 10000)
|
|
(fact 100))
|
|
|