Удаление трех последних элементов списка - Prolog

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

Помогите пожалуйста решить задачки на прологе. Создать программу для вычеркивания 3х последних элементов из списка.

Решение задачи: «Удаление трех последних элементов списка»

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

domains
int=integer
intl=int*
 
predicates
del_last3(intl,intl)
 
clauses
del_lat3([_],[]) :- !.
del_lat3([_,_],[]) :- !.
del_lat3([_,_,_],[]) :- !.
del_last3([H|T],[H|Q}) :-  del_last3(T,Q).

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

В начале кода объявлены два домена: int - целочисленный тип данных, intl - указатель на целочисленный тип данных (для удобства работы со списками).
Затем объявлена цель (predicate) - del_last3, которая принимает два аргумента типа intl.
В разделе clauses (условия) прописаны три пустых правила для случая, когда список пуст или содержит только один элемент. Это нужно для корректной обработки пустого списка.
Затем идет правило для случая, когда список содержит более одного элемента. Оно разбивает список на голову (H) и хвост (T) и вызывает рекурсивно функцию del_last3 для хвоста списка, выделяя голову в качестве первого элемента результирующего списка.
В итоге, функция del_last3 удаляет из списка последние три элемента, начиная с хвоста.