apfl/src/functional-tests/factorial.at

11 lines
104 B
Text
Raw Normal View History

2022-10-30 22:07:53 +00:00
===== script =====
fac := {
0 -> 1
n -> * n (fac (- n 1))
}
print (fac 10)
===== output =====
3628800