Factorial: Difference between revisions

=={{header|RPL}}==

We can either directly call <code>FACT</code> or recode it in two ways:

===Iterative===

≪ '''IF''' DUP 2 < '''THEN''' DROP 1

'''ELSE'''

DUP '''WHILE''' DUP 1 > '''REPEAT''' 1 - SWAP OVER * SWAP '''END'''

DROP

'''END'''

≫ 'FACTi' STO

===Recursive===

≪ '''IF''' DUP 2 < '''THEN''' DROP 1 '''ELSE''' DUP 1 - FACTr * '''END'''

≫ 'FACTr' STO

69 FACT

69 FACTi

69 FACTr

{{out}}

<pre>

3: 1.71122452428E+98

2: 1.71122452428E+98

1: 1.71122452428E+98

</pre>