我想从列表中删除所有包含[['One', _], _]
. 我创建了以下子句,delete_all
它始终有效,但我的情况除外:
delete_all(_,[],[]) :- !.
delete_all(X,[X|Tail],List) :-
!,
delete_all(X,Tail,List).
delete_all(X,[A|Tail],[A|List]) :-
delete_all(X,Tail,List).
示例:(这很好用)
?- delete_all(3,[3,4,3,5,3],K).
K = [4, 5] .
但这效果不佳:
delete_all([['One', _], _], [[['One', 'Six'], 94],
[['One', 'Ten'], 13], [['Two', 'Nine'], 35]], Y).
Y = [[['One', 'Ten'], 13], [['Two', 'Nine'], 35]].
为什么它只删除第一个元素?有什么问题?