Необходимо разделить список на два по принципу больше-меньше
split([],_,[],[]).
split(comp):-split(X).
split([X|L],Comp,[X|L1],L2):-
X
split(L,Comp,L1,L2).
split([X|L],Comp,L1,[X|L2]):-
X>=Comp,
split(L,Comp,L1,L2).
?- split([6,2,2,8,3,7,4,6,5],6,L1,L2),write(L1),write(L2).
|