%% 知識情報処理実習 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).