#prolog Вопрос: removeDup([],[]). removeDup([H|T],T1) :- member(H,T), removeDup(T,T1). removeDup([H|T],T1) :- not(member(H,T)), removeDup(T,Q), append(T1,[H],Q). Это удаляет дубликаты, но изменяет порядок. Для добавления я ожидаю, что H будет добавлен в конец T1, а…
#sorting #prolog Вопрос: Я хочу написать предикат, который определит, отсортирован список или нет (по возрастанию или по убыванию оба вернут значение true). is_sorted([]). is_sorted([_]). is_sorted([X,Y|T]):-X=<Y, is_sorted([Y|T]). Это работает, когда я…
#prolog Вопрос: Напишите предикат, который формирует список наиболее распространенных элементов списка. Список вводится с клавиатуры во время выполнения предиката. Не используйте встроенные предикаты максимального поиска и сортировки! Например: [0,3,5,7,1,5,3,0,3,3,5,7,0,5,0] -gt;…