このディレクトリの索引

#  
#  select(X, Ys, Zs) : リストYsからXを取り除いたリストがZs
#  

リストYsからXを取り除いたリストがZs(X,Ys,Zs) :-
        append(L0,[X|R],Ys),
        append(L0,R,Ys).