Anonymous user
Sorting algorithms/Bubble sort: Difference between revisions
m
→{{header|REALbasic}}
(Added Dyalect programming language) |
|||
Line 3,781:
<lang vb>
Dim sortable() As Integer
sortable.Shuffle() ' sortable is now randomized
Dim swapped As Boolean
Line 3,789:
While index < bound
If
Dim s As Integer =
swapped = True
End If
|