split([],_,[],[]). 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( [Head|Tail], L1, L2 ) :- split( [Head|Tail], Head, L1, L2 ).