09/06/22 23:01:19
>>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 23:01:19
>>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) .