このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1296387672/557
#   
#  ポインタを用いて配列 a[101] の中に下記のような数字を格納してください 
#   
#  a[ 0 ] = 0 
#  a[ 1 ] = 0 + 1 
#  a[ 2 ] = 0 + 1 + 2 
#  (中略) 
#  a [ 100 ] = 0 + 1 + 2 + … + 99 + 100 
# 
# 

'101要素のならびに下記のような数字を格納する\\na[ 0 ] = 0\\na[ 1 ] = 0 + 1\\na[ 2 ] = 0 + 1 + 2 \\n(中略)\\na[ 100 ] = 0 + 1 + 2 + ... + 99 + 100'(_101要素のならび) :-
        length(_101要素ならび,101),
        要素に合計値を詰める([],_101要素ならび).

要素に合計値を詰める(_,[]).
要素に合計値を詰める([],[0|R]) :- 要素に合計値を詰める([0],R).
要素に合計値を詰める([S1|R0],[S|R]) :-
        length([S1|R0],Len),
        S is S1 + Len,
        要素に合計値を詰める([S,S1|L0],R).