Factorial: Difference between revisions

m
Line 933:
===Recursive===
 
<lang arturorebol>factorial: @($[n){ ][
if? n>0 {[n * factorial n-1]
else [1]
n * [factorial n-1]
]
} { 1 }
 
}</lang>
loop 1..19 [x][
print ["Factorial of" x "=" factorial x]
}]</lang>
 
===Fold===
1,532

edits