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