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