Sorting algorithms/Radix sort: Difference between revisions

templates radixsort@{base:}

templates bucketize

<0 ?($value <0..>)>

..|@radixsort.positives: $value;

..|@radixsort.negatives(-1): $value;

<>

..|@radixsort.buckets($bucket): $value;

@radixsort.done: 0;

// Negatives get completed in wrong length-order, we need to collect by length and correct at the end

@: { done: 1, digit: 1, positives: [], negatives: [[]], buckets: [1..$base -> []]};

$@.done -> #

<1>

..|@: {done: 1, digit: $@.digit * $base, buckets:[1..$base -> []]};

..|@.negatives: [];

$@.done -> #

end radixsort

[170, 45, 75, 91, 90, 92, 802, 24, 2, 66] -> radixsort@{base:10} -> !OUT::write

'