4 lines
72 B
Text
4 lines
72 B
Text
to factorial :n
|
|
if :n < 2 [output 1]
|
|
output :n * factorial :n-1
|
|
end
|