Даны два списка, построить третий список. TurboProlog
Формулировка задачи:
Здравствуйте.Помогите пожалуйста с заданием! Нужно написать на TurboProlog. Даны два числовых списка. Построить третий список, количество элементов которого равно длине второго списка и каждый элемент равен количеству элементов первого списка, меньших соответствующего элемента второго списка: (1 7 3 0 2) (3 7 10) —> (3 4 5).
Решение задачи: «Даны два списка, построить третий список. TurboProlog»
textual
Листинг программы
- domains
- int=integer
- intl=int*
- predicates
- count_less(intl,int,int)
- task(intl,intl,intl)
- clauses
- count_less([],_,0).
- count_less([H|T],P,Q) :- H<P, count_less(T,P,Q1), Q=Q1+1.
- count_less([H|T],P,Q) :- H>=P, count_less(T,P,Q).
- task(_,[],[]).
- task(X,[H|T],[Q|R]) :- count_less(X,H,Q), task(X,T,R).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
