9 lines
127 B
Text
9 lines
127 B
Text
# Factorial
|
|
(de fact (F)
|
|
(curry (F) (N)
|
|
(if (=0 N)
|
|
1
|
|
(* N (F (dec N))) ) ) )
|
|
|
|
: ((Y fact) 6)
|
|
-> 720
|