14 lines
175 B
Text
14 lines
175 B
Text
;;((fn (f y) (f y))
|
|
;;(fn (x) (* x x))
|
|
;;2)
|
|
|
|
;;(((fn (x)
|
|
;;(fn () (* x x 2)))
|
|
;;2))
|
|
|
|
(fn fact (n)
|
|
(if (<= n 0)
|
|
1
|
|
(* n (fact (- n 1)))))
|
|
|
|
(fact 12)
|