删除指定索引处的元素，如果给出负面的返回未触及的列表，则为0作为索引

Question

嗨，我真的需要解决这个序言问题的帮助。我想在指定的索引上删除一个元素，但只有在给出大于0的索引时。如果索引为0或更小时，我只想将列表返回未触及的列表。

例如：

delete(List,Index,NewList).   
?-L=[1,2,3,4],delete(L,2,L2),write(L2).
L2 = [1,3,4]

for＆lt; = 0：

delete(List,Index,NewList).   
?-L=[1,2,3,4],delete(L,-1,L2),write(L2).
L2 = [1,2,3,4]

我设法使用以下代码处理了第一个情况。

remove([_|T], 1, T).
remove([H|T1], N, [H|T2]):-
    N > 1,
    I is N - 1,
    remove(T1, I, T2).

我尝试使用Prologs If-Else等效语法，但无法使其正常工作。

编辑：非常感谢您的回复！我没有意识到我错过了另一个案件。

Answer 1

您只需要在谓词定义中包含一个基本案例：

remove(L, N, L) :-
    N =< 0.
remove([_|T], 1, T).
remove([H|T1], N, [H|T2]):-
    N > 1,
    I is N - 1,
    remove(T1, I, T2).

示例：

?- L = [one, two, three, four], remove(L, 2, R).
L = [one, two, three, four],
R = [one, three, four] ;
false.

?- L = [one, two, three, four], remove(L, -1, R).
L = R, R = [one, two, three, four] ;
false.

Answer 2

您只需要另一个规则即可处理n =＆lt; 0：

remove(L, N, L) :-
    N =< 0.

remove([_|T], 1, T).

remove([H|T1], N, [H|T2]):-
    N > 1,
    I is N - 1,
    remove(T1, I, T2).