このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1337692704/944
#  for文を使って6の500乗の答えがでるプログラムを教えてください。 
# 
# 

for(_何乗,_答え) :-
        for(1,6,_何乗,_答え).

for(_何乗,_答え,_何乗,_答え).
for(_何乗_1,_6の何乗_1,_何乗,_答え) :-
        _6の何乗_2 is _6の何乗_1 * 6,
        _何乗_2 is _何乗_1 + 1,
        for(_何乗_2,_6の何乗_2,_何乗,_答え).