Sorting algorithms/Radix sort: Difference between revisions
m
→{{header|Scheme}}
Line 3,460:
=={{header|Scheme}}==
{{works with|R7RS}}
<lang Scheme>;;; An illustrative implementation of the radix-10 example at
Line 3,471 ⟶ 3,472:
(import (scheme write))
(define (sort-by-decimal-digit data
(define bins (make-vector 10 '()))
(do ((i (- (vector-length data) 1) (- i 1)))
Line 3,477 ⟶ 3,478:
(let* ((element (vector-ref data i))
(digit (truncate-remainder
(truncate-quotient element
10)))
(vector-set! bins digit
|