standard3tupel.pas

Pasc+Java 这是一个国外的随机自动机*(RAM)一个学习用的程序

function standard3tupel(x1, x2, x3);
begin
	standard3tupel := standard2tupel(standard2tupel(x1,x2), x3)
end

function standard2tupel(x1,x2);
begin
	standard2tupel := ((((x1+x2)*((x1+x2)+1)):2)+x2)
end