Here's a Prolog implementation of bubblesort (taken from Bratko's Prolog Programming for AI). bubblesort(List, Sorted) :- swap(List, List1), !, b

Here's a Prolog implementation of bubblesort (taken from Bratko's Prolog Programming for AI). bubblesort(List, Sorted) :- swap(List, List1), !, bubblesort(List1, Sorted). swap([X,Y|Rest], [Y,X|Rest) :- gt(X,Y). swap([Z|Rest], [Z|Rest1]) :- swap(Rest, Rest1).