このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1263824755/307
#  [1] Cプログラミング入門:  
#  [2] http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10460.txt 
#  
'4:配列 COM に含まれる配列 MAN の数字の個数 count を求めよ'(COM,MAN,Count) :-
    '配列 COM に含まれる配列 MAN の数字の個数 count を求めよ'(COM,MAN,L),
    findsum(M,member([_,M],L),Count),!.

count([],0) :- !.
count([_|R],Count) :- count(R,Count1),Count is Count1 + 1,!.
count(P,Count) :- findsum(1,P,Count). 

'配列 COM に含まれる配列 MAN の数字の個数 count を求めよ'(COM,[],[]) :- !.
'配列 COM に含まれる配列 MAN の数字の個数 count を求めよ'(COM,[N|R1],[[N,Count]|R2]) :-
    count(member(N,COM),Count),
    '配列 COM に含まれる配列 MAN の数字の個数 count を求めよ'(COM,R1,R2).