Swi-Prolog - 如何删除列表中的第二个元素（如果存在）？

Question

我需要在swi-prolog中编写一个程序来删除列表的第二个值。 谢谢！

Answer 1

我认为它可以像以下一样简单：

remove2nd([], []).
remove2nd([X], [X]).
remove2nd([X, Y|Z], [X|Z]).

您将其用作：

remove2nd([1,2,3], X).

并给你

X = [1, 3].