Prolog程序输出列表的最后一个元素和前一个元素

Question

我需要类似于此的last_And_prelast（[5，a，d，2]，A，B）输出A = d和B = 2

感谢

Answer 1

此问题已经在这里解决：How to get the 2 last values from a list in recursion and in tail-recursion?

使用此

last2_2([_|T],X,Y) :- last2_2(T,X,Y). 

或本

last2_2([_,_|T],Y,Z):-last2_2(T,Y,Z). 
last2_2([_,A,B],A,B). 

Answer 2

你可以尝试使用内建命令，如建议通过@CappeliC：

last2(Xs , A , B) :- append(_,[A,B],Xs) . 

甚至

last2(Xs , A , B) :- reverse(Xs,[B,A|_]) . 

或者你可以尝试滚动自己

last2([A,B] , A , B) . 
last2([_|Xs] , A , B) :- last2(Xs,A,B) . 

有不止一个方法来做到这一点。