Найти, сколько раз в списке встречается максимальный элемент - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
