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