いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

270:デフォルトの名無しさん
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) .

次ページ

続きを表示

1を表示