Anonymous user
Sorting algorithms/Bubble sort: Difference between revisions
m
→{{header|REALbasic}}
Line 3,018:
Dim sortable() As Integer ' assume the array is populated
sortable.Shuffle() ' sortable is now randomized
Do
▲ Dim swapped As Boolean
Dim index, bound As Integer
bound = sortable.Ubound
| |||