6

我需要你的帮助！你能帮我解决这个问题吗：删除 Prolog 中指定索引处的列表中的一个元素。

例如：

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

我不知道该怎么做。

解决了！

   away([G|H],1,H):-!.
   away([G|H],N,[G|L]):- N > 1, Nn is N - 1,!,away(H,Nn,L).
   ?-away([1,2,3,4,5],3,X), write(X).
4

2 回答 2

6

使用内置函数nth0/4（使用基于 0 的索引）或nth1/4（使用基于 0 的索引）来执行此操作。在您的情况下，由于您使用基于 1 的索引，nth1因此应该使用：

nth1(Index, List, _, Remainder)

提供Indexand List，因为你不需要被删除的元素，你可以忽略它，那么结果列表将在Remainder.

nth1这是从 SWI-Prolog中的库中获取的源代码lists.pl，重写以消除依赖关系：

% Case 1: Index not specified
nth1(Index, In, Element, Rest) :-
    var(Index), !,
    generate_nth(1, Index, In, Element, Rest).
% Case 2: Index is specified
nth1(Index, In, Element, Rest) :-
    integer(Index), Index > 0,
    find_nth1(Index, In, Element, Rest).

generate_nth(I, I, [Head|Rest], Head, Rest).
generate_nth(I, IN, [H|List], El, [H|Rest]) :-
    I1 is I+1,
    generate_nth(I1, IN, List, El, Rest).

find_nth1(1, [Head|Rest], Head, Rest) :- !.
find_nth1(N, [Head|Rest0], Elem, [Head|Rest]) :-
    M is N-1,
    find_nth1(M, Rest0, Elem, Rest).
于 2013-04-27T10:09:46.497 回答
1

有点过时，但仍然（特别是如果您想要更优雅的解决方案）：

del([X|XS], CNT, [X|RES]) :- NEXT is CNT - 1,
                             del(XS, NEXT, RES).
del([_|XS], 1, XS).
于 2019-02-26T19:50:58.253 回答