dos_compilers/Digital Research PLI-86 v1/IFACT.PLI
2024-06-30 12:01:25 -07:00

20 lines
640 B
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/******************************************************/
/* This program evaluates the Factorial function (n!) */
/* using iteration. */
/******************************************************/
ifact:
procedure options(main);
declare
(i, n, F) fixed;
do i = 0 by 1;
F = 1;
do n = i to 1 by -1;
F = n * F;
end;
put edit('factorial(',i,')=',F)
(skip, a,f(2), a, f(7));
end;
end ifact;