Return to recur.p CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / pascal / pdx / test

BSD 4.2

program recursion(input, output);
var	i : integer;

function fact(n : integer) : integer;
begin
	if n <= 1 then begin
		fact := 1;
	end else begin
		fact := n * fact(n-1);
	end;
end;

begin
	i := 3;
	writeln(i:1, '! = ', fact(i):1);
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.