このディレクトリの索引
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要素のならび) :-
        findall(N,for(1,N,100),L1),
        findall(S,(
                    append(L0,_,L1),
                    sum(L0,S)),
                _101要素のならび).

sum([],0).
sum([N|R],X) :- sum(R,Y),X is N + Y.