RosettaCodeData/Task/Factorial/Ursa/factorial-2.ursa
2016-12-05 23:44:36 +01:00

8 lines
148 B
Text

def factorial (int n)
decl int z
set z 1
if (> n 1)
set z (* n (factorial (- n 1)))
end if
return z
end