Sorting algorithms/Bubble sort: Difference between revisions
Content added Content deleted
(→{{header|Oz}}: improve: make sort range smaller after each pass) |
|||
Line 933:
end
IsSorted = {NewCell false}
MaxItem = {NewCell {Array.high Arr}-1}
in
for until:@IsSorted do
IsSorted := true
for I in {Array.low Arr}..
if Arr.I > Arr.(I+1) then
IsSorted := false
Line 942 ⟶ 943:
end
end
MaxItem := @MaxItem - 1
end
end
| |||