このディレクトリの索引
#  重複組合せ
#  組合せ

重複組合せ(L,1,[A]) :-
        member(A,L).
重複組合せ([A|R1],N,[A|R2]) :-
        N > 1,
        N_1 is N - 1,
        重複組合せ([A|R1],N_1,R2).
重複組合せ([_|R1],N,R2) :-
        N > 1,
        重複組合せ(R1,N,R2).


組合せ(L,1,[A]) :-
        member(A,L).
組合せ([A|R1],N,[A|R2]) :-
        N > 1,
        N_1 is N - 1,
        組合せ(R1,N_1,R2).
組合せ([_|R1],N,R2) :-
        N > 1,
        組合せ(R1,N,R2).