7 lines
127 B
Common Lisp
7 lines
127 B
Common Lisp
(def fact (lambda (n) (
|
|
if (_<_ n 2) 1
|
|
(_*_ n (fact (_-_ n 1)))
|
|
)))
|
|
; (def foo fact)
|
|
; (set! fact (lambda (n) (_+_ n 1)))
|