Anonymous user
Sorting algorithms/Bubble sort: Difference between revisions
→{{header|Prolog}}
Line 2,510:
bubblesort(Len, In, Out) :-
bubble(Len, In, Bubbled, SortFlag), % bubble the list
(SortFlag=sorted ->
SegLen is Len - 1
writef('bubbled=%w\n', [Bubbled]), % show progress
bubblesort(SegLen, Bubbled, Out)).
| |||