このディレクトリの索引
#  年俸1000万の会社の試験問題 <発展問題>
#  単体テストなどやっていると、全ての要素について全ての組み合わせを
#  求めたいことが結構あります。
#  

'単体テストなどやっていると、全ての要素について全ての組み合わせを求めたいことが結構あります。'(_グループならび,_組合せの順列) :-
        length(_グループならび,Len),
        全ての組合せ(_グループならび,_組合せ_1),
        順列(_組合せ_1,Len,_組合せの順列).

全ての組合せ([],[]).
全ての組合せ([L|R1],[A|R2]) :-
        member(A,L),
        全ての組合せ(R1,R2).