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