Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- swap([[Xa,Ya],[Xb,Yb]]|Y],[[Xb,Yb],[Xa,Ya]|Y]) :- Xa>Xb.
- swap([[X,_]|Y1],[[X,_]|Y2]) :- swap(Y1,Y2).
- bbs(L,W) :- swap(L,L1), !, bbs(L1,W).
- bbs(L,L).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement