rekursiv Fakultät berechnen
[code:1]
;; Fakultät berechnen
;; factorial: nat -> nat
(define factorial
(lambda (n)
(cond
((= n 0) 1)
((> n 0) (* n (factorial(- n 1)))))))
;; Test should be 120
(factorial 5)[/code:1]
[code:1]
;; Fakultät berechnen
;; factorial: nat -> nat
(define factorial
(lambda (n)
(cond
((= n 0) 1)
((> n 0) (* n (factorial(- n 1)))))))
;; Test should be 120
(factorial 5)[/code:1]