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