Factorial: Difference between revisions

Line 3,612:
RETURN
END
 
=={{header|FPr}}==
FP-Way
<lang fpr>fact==((1&),iota)\(1*2)& </lang>
Recursive
<lang fpr>fact==(id<=1&)->(1&);id*fact°id-1& </lang>
 
=={{header|FreeBASIC}}==