Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- filter(LNum,LPos):-
- nujemne(LNum,[],Sub),Sub=LPos.
- nujemne([],Acc,Acc).
- nujemne(LNum,Acc,Sub):-
- LNum=[X|Y],X>=0,append(Acc,[X],Pom),nujemne(Y,Pom,Sub).
- nujemne(LNum,Acc,Sub):-
- LNum=[X|Y],X<0,nujemne(Y,Acc,Sub).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement