standard3tupel.pas

来自「Pasc+Java 这是一个国外的随机自动机*(RAM)一个学习用的程序」· PAS 代码 · 共 11 行

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