This website requires JavaScript.
Explore
Help
Register
Sign In
conservatory
/
ikarus
Watch
4
Star
0
Fork
You've already forked ikarus
0
Code
Issues
Pull Requests
Projects
Releases
Wiki
Activity
cd4eef2382
ikarus
/
lib
/
fact.ss
7 lines
104 B
Scheme
Raw
Blame
History
(
define
(
fact
n
ac
)
(
if
(
zero?
n
)
ac
(
fact
(
-
n
1
)
(
*
n
ac
)
)
)
)
(
begin
(
fact
10000
1
)
#f
)
Reference in New Issue
View Git Blame
Copy Permalink