Anonymous user
Sorting algorithms/Bubble sort: Difference between revisions
m
→{{header|Icon}}: fix var
(→{{header|Icon}}: modified demo framework) |
m (→{{header|Icon}}: fix var) |
||
Line 916:
end
procedure bubblesort(X,op) #: return sorted list
local i,
op := sortop(op,X)
swapped := 1
while
every i := 2 to *X do
if op(X[i],X[i-1]) then
X[i-1] :=: X[swapped := i
return X
end</lang>
Line 938 ⟶ 937:
with op = ">>": [ 9 6 5 3 3 2 14 1 ] (0 ms)
with op = ">": [ 14 9 6 5 3 3 2 1 ] (0 ms)
with op = procedure cmp: [ 1 2 3 3 5 6 9 14 ] (
with op = "cmp": [ 1 2 3 3 5 6 9 14 ] (0 ms)
on string : "qwerty"
| |||