このディレクトリの索引
#  
#  ランダムに生成された0から99までの1000個の整数からなるリストの要素を既出のものは
#  除いて順に取り出す。
#  

'ランダムに生成された0から99までの1000個の整数からなるリストの要素を既出のものは除いて順に取り出す'(X) :-
        findall(R,(
                    for(1,N,1000),
                    R is random(100)),
                L),
        append(L1,[X|_],L),
        \+(member(X,L1)).