[unix-history] / tests / t11.p

program recursivegcd(output);
var
	x, y, n: integer;
function gcd(m,n: integer): integer;
	begin
		if n=0 then
			gcd := m else
			gcd := gcd(n, m mod n);
	end;
procedure try(a, b: integer);
	begin
		writeln(a, b, gcd(a, b));
	end;
begin
	try(18, 27);
	try(312, 2142);
	try(61, 53);
	try(98, 868);
end.
Commit	Line	Data
fde98a2d BJ	1	program recursivegcd(output);
	2	var
	3	x, y, n: integer;
	4	function gcd(m,n: integer): integer;
	5	begin
	6	if n=0 then
	7	gcd := m else
	8	gcd := gcd(n, m mod n);
	9	end;
	10	procedure try(a, b: integer);
	11	begin
	12	writeln(a, b, gcd(a, b));
	13	end;
	14	begin
	15	try(18, 27);
	16	try(312, 2142);
	17	try(61, 53);
	18	try(98, 868);
	19	end.