RosettaCodeData/Task/Factorial/Lingo/factorial-2.lingo

8 lines
93 B
Plaintext

on fact (n)
res = 1
repeat with i = 2 to n
res = res*i
end repeat
return res
end