Handling arguments

This commit is contained in:
Zoe Roux
2021-11-09 11:38:33 +01:00
parent 569ce977ae
commit 7c1da5eef7
4 changed files with 50 additions and 5 deletions
+3
View File
@@ -0,0 +1,3 @@
(define (fact x)
(cond ((eq? x 1) 1)
(#t (* x (fact (- x 1))))))