Найти, сколько раз в списке встречается максимальный элемент - Prolog
Формулировка задачи:
Помогите закончить программу, нужно найти сколько раз встречается максимальный элемент,и вот с count_member не понимаю!
или как-то по другому найти сколько раз встречается максимальный элемент?
Решение задачи: «Найти, сколько раз в списке встречается максимальный элемент»
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.