如何制作两个清单

Question

我需要将列表分为两部分，一个是> 0，另一个是<0

dv([],[],[]):-!.
dv([H|T], X, Y):- H < 0, A is H, dv(T, [A|X], Y).
dv([H|T], X, Y):- H >= 0, B is H, dv(T, X, [B|Y]).