20 lines
368 B
Plaintext
20 lines
368 B
Plaintext
[*
|
|
* (n) lfx -- (factorial of n)
|
|
*]sz
|
|
[
|
|
1 Sp [product = 1]sz
|
|
[ [Loop while 1 < n:]sz
|
|
d lp * sp [product = n * product]sz
|
|
1 - [n = n - 1]sz
|
|
d 1 <f
|
|
]Sf d 1 <f
|
|
Lfsz [Drop loop.]sz
|
|
sz [Drop n.]sz
|
|
Lp [Push product.]sz
|
|
]sf
|
|
|
|
[*
|
|
* For example, print the factorial of 50.
|
|
*]sz
|
|
50 lfx psz
|