10.05. split/3

Schreibe, ohne einen Cut zu verwenden, das Prädikat split/3,
welches eine Liste aus Integern in zwei Listen aufteilt: eine enthält die
positiven Zahlen (und Null), die andere die negativen.

Zum Beispiel:

?- split([3,4,-5,-1,0,4,-9],P,N)
P = [3,4,0,4]
N = [-5,-1,-9].

Versuche dann dein Programm mit Hilfe eines Cuts zu verbessern.