ネストしたイテレート処理の比較（Java、Ruby、Prolog）

gistfile1.txt

※0オリジンか1オリジンという意味では等価なコードではない。

// written in Java

for(int k = 0, k < K, k++)
	for(int j = 0, j < J, j++)
			for(int i = 0, i < I, i++)
				execute(i, j, k);

# written in Ruby

K.times{ |k|
	J.times{ |j|
		I.times{ |i|
			execute(i, j, k)
		}
	}
}

% written in Prolog

sub1(I, J, 0).
sub1(I, J, K) :-
	sub2(I, J, K),
	NextK is K - 1,
	sub1(I, J, NextK).

sub2(I, 0, K).
sub2(I, J, K) :-
	sub3(I, J, K),
	NextJ is J - 1,
	sub2(I, NextJ, K).

sub3(0, J, K).
sub3(I, J, K) :-
	execute(I, J, K),
	NextI is I - 1,
	sub3(NextI, J, K).

# written in Prolog
forall(between(0, MaxK, K),
	forall(between(0, MaxJ, J),
		forall(between(0, MaxI, I),
			(execute(I, J, K)))))