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

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

Нужно решить в

Strawberry Prolog

задачу:

Удаление N первых элементов в списке.

Написала. Но при компиляции выдает ошибку. Помогите найти ошибку, пожалуйста!

delete(0, L, L).
delete(3, [], []).
delete(N, [3|T1], L2) :-
N > 0,
N1 is N-1, 
delete(N1, T1, L2).
delete(N, [1, 2, 4, 8, 16], X1), write(X1), nl.

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

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

                            delete_n(0, L, L).
delete_n(_, [], []).
delete_n(N, [_|T1], L2) :-
    N > 0,
    N1 is N-1,  
    delete_n(N1, T1, L2).
 
test :-
    %Test = [1,2,3,4,5,6,7,8,9,0],
    Test = [1,2,4,8,16],
 
    delete_n(3, Test, X1),
    write(X1), nl.
 
?-test.
                        

Оцени полезность:

7 голосов , оценка 4 из 5

Похожие ответы