mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Factorial/PureBasic/factorial-2.purebasic

8 lines
125 B
Plaintext
Raw Permalink Blame History

Procedure Factorial(n)
If n < 2
ProcedureReturn 1
Else
ProcedureReturn n * Factorial(n - 1)
EndIf
EndProcedure
Reference in New Issue View Git Blame Copy Permalink