Sorting algorithms/Bubble sort: Difference between revisions
m
Fix bug
(Add Shen solution) |
m (Fix bug) |
||
Line 4,084:
(define one-pass
{ (vector number) --> number --> boolean --> number --> boolean }
A N Swapped N ->
(swap A (- N 1) N))
Swapped)
A N Swapped I -> (if (> (<-vector A (- I 1)) (<-vector A I))
(do (swap A (- I 1) I)
|