8 lines
93 B
Scheme
8 lines
93 B
Scheme
|
(define fact
|
||
|
|
(lambda (x)
|
||
|
|
(if (== x 1) 1
|
||
|
|
(* x (fact (- x 1))))))
|
||
|
|
|
||
|
|
(fact 6)
|
||
|
|
|