09/06/22 22:59:07
>>268
% Prolog
t268(X) :- 組合せ([1,2,3,4,5],2,X).
組合せ(X,1,[A]) :-
member(A,X) .
組合せ([A|Y],N,[A|X]) :-
N > 1,
M is N - 1,
組合せ(Y,M,X) .
組合せ([_|Y],N,A) :-
N > 1,
組合せ(Y,N,A) .
09/06/22 22:59:07
>>268
% Prolog
t268(X) :- 組合せ([1,2,3,4,5],2,X).
組合せ(X,1,[A]) :-
member(A,X) .
組合せ([A|Y],N,[A|X]) :-
N > 1,
M is N - 1,
組合せ(Y,M,X) .
組合せ([_|Y],N,A) :-
N > 1,
組合せ(Y,N,A) .