Найти, сколько раз в списке встречается максимальный элемент - Prolog

Формулировка задачи:

Помогите закончить программу, нужно найти сколько раз встречается максимальный элемент,и вот с count_member не понимаю!

DOMAINS
list=integer*
PREDICATES
nondeterm max(list,integer)
CLAUSES
max([X],X).
max([H|T],H):-max(T,M),H>M,!.
max([_|T],M):-max(T,M).
count_member(?).
GOAL
%max([23,9,10],X).
count_member(L).

или как-то по другому найти сколько раз встречается максимальный элемент?

Решение задачи: «Найти, сколько раз в списке встречается максимальный элемент»

textual
                            Листинг программы 
                        

                            ?- Xs = [1,2,3,1,2,3], sort(Xs, Ys), last(Ys, Max), findall(Max, member(Max, Xs), Zs), length(Zs, Count).
Xs = [1, 2, 3, 1, 2, 3],
Ys = [1, 2, 3],
Max = 3,
Zs = [3],
Count = 1.
                        

Оцени полезность:

8 голосов , оценка 3.625 из 5

Похожие ответы