09/07/14 17:33:35
>>473
% Prolog URLﾘﾝｸ(nojiriko.asia)
リーグ戦の全試合を表示するプログラム(N) :-
findall(M,for(1,M,N),L),
組合せ(L,2,[A,B]),
write_formatted('%t-%t\n',[A,B]),
fail;
true.
組合せ(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).