10/01/29 10:43:20
>>483
% Prolog 4:
'配列 COM に含まれる配列 MAN の数字の個数 count を求めよ'(COM,[],[]) :- !.
'配列 COM に含まれる配列 MAN の数字の個数 count を求めよ'(COM,[N|R1],[[N,Count]|R2]) :-
count(member(N,COM),Count),
'配列 COM に含まれる配列 MAN の数字の個数 count を求めよ'(COM,R1,R2).
count([],0) :- !.
count([_|R],Count) :- count(R,Count1),Count is Count1 + 1,!.
count(P,Count) :- findsum(1,P,Count).