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