Changed from using bit-shifts to using arithmetic operators. More tests fail, but...
This commit is contained in:
parent
bef9be4914
commit
7c84cb433a
3 changed files with 10 additions and 8 deletions
|
|
@ -1,6 +1,6 @@
|
|||
(set! fact
|
||||
(lambda (n)
|
||||
"Compute the factorial of `n`, expected to be an integer."
|
||||
"Compute the factorial of `n`, expected to be a natural number."
|
||||
(cond ((= n 1) 1)
|
||||
(t (* n (fact (- n 1)))))))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue