%%   知識情報処理実習 r4の練習問題 解答例

% 1.
pos_neg([],[],[]).
pos_neg([X|X1],[X|PL],NL) :- X>0, pos_neg(X1,PL,NL).
pos_neg([X|X1],PL,[X|NL]) :- X<0, pos_neg(X1,PL,NL).
pos_neg([_|X1],PL,NL) :- pos_neg(X1,PL,NL).

t4_1(PL,NL) :- pos_neg([3,-10,0,16],PL,NL).