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].