Re: problem with anonymous variables



Ok, here is an attempt

shrink([],[]).
shrink([A|B],C):- var(A),!, shrink(B,C).
shrink([A|B],[A|C]):- nonvar(A), shrink(B,C).


| ?- shrink([4,5,B,d(r,e)],C).
C = [4,5,d(r,e)] ? ;
no



.