いろんな言語で宿題スレ

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

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

次ページ

続きを表示

1を表示