Prolog函数removeSecond删除给定列表的第二个元素。例如：

Question

removeSecond([H|[X|T]], L) :- L = [H|T].

这是我的代码，但我无法让它返回所需的结果

例如：

removeSecond ([A [A B] C], L)
Returns L = [A C] and
removeSecond ([A B [C D]], L)
Returns L = [A [C D]]

Answer 1

我不明白你的问题在哪里，但是......

如何编写removeSecond/2如下？

removeSecond([H1, _ | T], [H1 | T]).