Создайте предикат, разделяющий исходный список на два подсписка - Prolog
Формулировка задачи:
Создайте предикат, разделяющий исходный список на два подсписка. В первый из них должны попасть элементы с нечетными номерами, во второй - элементы с четными номерами.
На turbo prolog надо
Решение задачи: «Создайте предикат, разделяющий исходный список на два подсписка»
textual
Листинг программы
domains
int=integer
intl=int*
predicates
split(intl,intl,intl)
readlist(intl)
clauses
split([X],[X],[]).
split([X,Y],[X],[Y]).
split([X,Y|T],[X|Q],[Y|P]) :- split(T,Q,P).
readlist([H|T]) :- readint(H),!,readlist(T).
readlist([]).
goal
write("Enter list"),nl,readlist(X),split(X,A,B), write(A),nl,write(B),nl.