apfl/src/functional-tests/factorial.at

10 lines
104 B
Text

===== script =====
fac := {
0 -> 1
n -> * n (fac (- n 1))
}
print (fac 10)
===== output =====
3628800