mirror of
https://github.com/zoriya/HAL.git
synced 2026-05-13 15:23:48 +00:00
4 lines
79 B
Common Lisp
4 lines
79 B
Common Lisp
(define (fact x)
|
|
(cond ((eq? x 1) 1)
|
|
(#t (* x (fact (- x 1))))))
|