Anonymous user
Factorial: Difference between revisions
→{{header|Fantom}}: add FOCAL version
(add gw basic) |
(→{{header|Fantom}}: add FOCAL version) |
||
Line 3,151:
}
}</lang>
=={{header|FOCAL}}==
<lang FOCAL>1.1 F N=0,10; D 2
1.2 S N=-3; D 2
1.3 S N=100; D 2
1.4 S N=300; D 2
1.5 Q
2.1 I (N)3.1,4.1
2.2 S R=1
2.3 F I=1,N; S R=R*I
2.4 T "FACTORIAL OF ", %3.0, N, " IS ", %8.0, R, !
2.9 R
3.1 T "N IS NEGATIVE" !; D 2.9
4.1 T "FACTORIAL OF 0 IS 1" !; D 2.9</lang>
{{output}}
<pre>
FACTORIAL OF 0 IS 1
FACTORIAL OF = 1 IS = 1
FACTORIAL OF = 2 IS = 2
FACTORIAL OF = 3 IS = 6
FACTORIAL OF = 4 IS = 24
FACTORIAL OF = 5 IS = 120
FACTORIAL OF = 6 IS = 720
FACTORIAL OF = 7 IS = 5040
FACTORIAL OF = 8 IS = 40320
FACTORIAL OF = 9 IS = 362880
FACTORIAL OF = 10 IS = 3628800
N IS NEGATIVE
FACTORIAL OF = 100 IS = 0.93325720E+158
FACTORIAL OF = 300 IS = 0.30605100E+615
</pre>
The factorial of 300 is the largest one which FOCAL can compute, 301 causes an overflow.
=={{header|Forth}}==
| |||