7 lines
101 B
Text
7 lines
101 B
Text
(fn fact (n)
|
|
(if (<= n 0)
|
|
1
|
|
(* n (fact (- n 1)))))
|
|
|
|
|
|
(println "12! =" (fact 12))
|