list - プロローグ カットを使わずにポジティブな要素のリストをクリア

Question

リストを切らずにクリアしたい。私は試した：

filter([],[]).

filter([H|T],[H|S]) :- 
   H<0,
   filter(T,S).

filter([H|T],S) :- 
   H>=0,
   filter(T,S).

しかし、うまくいきません。

私が試したときに起こったことは次のとおりです。

?- filter([1,0,-6,7,-1],L).

L = [-6,-1]; %false
no

L=[0,-6,-1] %true