このディレクトリの索引
#  
#  複数の集合の積集合を求める
#  

複数の集合の積集合を求める([_集合1,_集合2],_複数の集合の積集合) :-
        intersection(_集合1,_集合2,_複数の集合の積集合),!.
複数の集合の積集合を求める([_集合1,_集合2|R],_複数の集合の積集合) :-
        intersection(_集合1,_集合2,_積集合),
        複数の集合の積集合を求める([_積集合|R],_複数の集合の積集合).