Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- key(H1,H2):-H1>H2.
- bubble([],[]).
- bubble([H1|[H2|T1]],[H2|[H1|T2]]):-key(H1,H2),bubble([H2|T1],[H2|T2]),!.
- bubble([H1|T1],[H1|T2]):-bubble(T1,T2).
- bubblesort(A,A).
- bubblesort(A,X):-bubble(A,B),bubblesort(B,X).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement