Anonymous user
Sorting algorithms/Bubble sort: Difference between revisions
→{{header|Racket}}
(Racket version) |
|||
Line 2,574:
(define ref vector-ref)
(let loop ([again? #f])
(for ([i (in-range 0 (- len 1))]
(for
[
(vector-set! v j
(vector-set! v k vj)
(set! again? #t)))
(when again? (loop #f))))
v)
</lang>
Line 2,589 ⟶ 2,590:
(bubble-sort < (for/vector ([_ 10]) (random 20)))
</lang>
=={{header|REXX}}==
|