15 lines
No EOL
193 B
Text
15 lines
No EOL
193 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)))))
|
|
|
|
|
|
(println "12! =" (fact 12)) |