このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/572
#  [1] 授業単元: プログラミング 
#  [2] 問題文(含コード&リンク): 
#    5個の果物から3個取り出してかごに入れるときの入れ方は何通りあるか。 
#    この組み合わせを計算するプログラムを作成せよ。  
#  

'5個の果物'([りんご,みかん,ぶどう,桃,いちご]).

'5個の果物から3個取り出してかごに入れるときの入れ方は何通りあるか。'(_何通り) :-
        '5個の果物'(_5個の果物),
        count(組み合わせ(_5個の果物,3,_組み合わせ),_何通り).

組み合わせ(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).