Разделить список вещественных на два подсписка: положительных и отрицательных - Prolog
Формулировка задачи:
Помогите написать программу на free prolog: Разделение исходного списка из вещественных чисел на два подсписка: список положительных чисел и список отрицательных чисел.
Решение задачи: «Разделить список вещественных на два подсписка: положительных и отрицательных»
textual
Листинг программы
domains reall=real* predicates task(reall,reall,reall) clauses task([],[],[]). task([H|T],[H|PT],NT) :- H>=0 ,task(T,PT,NT). task([H|T],PT,[H|NT]) :- H<0 ,task(T,PT,NT).