Функция, удаляющая из списка каждый k-ый элемент - Prolog

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

Помогите пожалуйста. Опишите функцию, удаляющую из списка каждый k-ый элемент.

Решение задачи: «Функция, удаляющая из списка каждый k-ый элемент»

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

?- ['remove-k'].
% remove-k compiled 0.00 sec, 136 bytes
true.
 
?- remove-k([1,2,3,4,5,6,7,8,9,0], 1, 4, L).
L = [1, 2, 3, 5, 6, 7, 9, 0] .
 
?- remove-k([1,2,3,4,5,6,7,8,9,0], 1, 3, L).
L = [1, 2, 4, 5, 7, 8, 0] .

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

Удаление каждого k-го элемента из списка реализуется следующим образом:
- Входной список делится на части размером k элементов (если k меньше 1 или больше размера списка, то список считается пустым).
- Рекурсивно вызывается функция для оставшихся частей списка.
- Вложенные вызовы функции для каждой части списка собираются в список результатов.
- Возвращается список результатов.
Примеры вызовов функции:
- ?- remove-k([1,2,3,4,5,6,7,8,9,0], 1, 4, L). Вызов функции remove-k с входным списком [1,2,3,4,5,6,7,8,9,0], параметрами k=1, size=4 и переменной L для результата. В этом примере список делится на части размером 1 элемент (2 части), и каждый 1-й элемент удаляется. Результат: L = [1, 2, 3, 5, 6, 7, 9, 0].
- ?- remove-k([1,2,3,4,5,6,7,8,9,0], 1, 3, L). Вызов функции remove-k с входным списком [1,2,3,4,5,6,7,8,9,0], параметрами k=1, size=3 и переменной L для результата. В этом примере список делится на части размером 1 элемент (3 части), и каждый 1-й элемент удаляется. Результат: L = [1, 2, 4, 5, 7, 8, 0].