This website requires JavaScript.
Explore
Help
Sign in
kotovalexarian-likes-github
/
ruby--ruby
Watch
1
Star
0
Fork
You've already forked ruby--ruby
0
mirror of
https://github.com/ruby/ruby.git
synced
2022-11-09 12:17:21 -05:00
Code
Releases
Activity
68ddd4d300
ruby--ruby
/
benchmark
/
other-lang
/
fact.scm
9 lines
119 B
Scheme
Raw
Normal View
History
Unescape
Escape
set svn:eol-style git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11708 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2007-02-12 18:01:19 -05:00
(
define
(
fact
n
)
(
if
(
<
n
2
)
1
(
*
n
(
fact
(
-
n
1
)
)
)
)
)
(
dotimes
(
i
10000
)
(
fact
100
)
)
Copy permalink