このディレクトリの索引

集合に要素を加える(_要素,_集合,[_要素|_集合]) :-
        \+(member(_要素,_集合)),!.
集合に要素を加える(_要素,_集合,_集合).