Cоздать предикат, который добавляет 1 ко всем положительным элем списка и отнимает 1 у всех отрицательных эле - Prolog

Формулировка задачи:

Возникла проблема. Нужно решить задачу, а я в прологе... Cоздать предикат, который добавляет 1 ко всем положительным элем. списка и отнимает 1 у всех отрицательных элем. списка буду очень признателен.

Решение задачи: «Cоздать предикат, который добавляет 1 ко всем положительным элем списка и отнимает 1 у всех отрицательных эле»

Листинг программы

domains
int=integer
intl=int*
 
predicates
task(intl,intl)
 
clauses
task([],[]).
task([H|V],[Q|T]) :- H>0, Q=H+1, task(V,T).
task([0|V],[0|T]) :- task(V,T).
task([H|V],[Q|T]) :- H<0, Q=H-1, task(V,T).

Объяснение кода листинга программы

Создается новый предикат с именем task, который принимает два аргумента типа intl (массив целых чисел).
Задаются два пустых массива в качестве начального значения для первого и второго аргументов.
Предикат task рекурсивно вызывается для каждого элемента массива, кроме последнего элемента (для которого уже не нужно выполнять рекурсивный вызов).
Если текущий элемент больше нуля, то к нему добавляется единица, а результат сохраняется в новом массиве.
Если текущий элемент равен нулю, то рекурсивный вызов не выполняется, а результат сохраняется в новом массиве.
Если текущий элемент меньше нуля, то из него вычитается единица, а результат сохраняется в новом массиве.
Предикат task рекурсивно вызывается для оставшейся части массива с новыми значениями.
Если массив пустой, то рекурсивный вызов завершается, и результатом является новый массив, состоящий только из нулей.
Если массив не пустой, то рекурсивный вызов продолжается до тех пор, пока не будет достигнут пустой массив.
Результатом выполнения предиката task является новый массив, в котором все положительные элементы увеличены на единицу, а все отрицательные элементы уменьшены на единицу.