Sorting algorithms/Radix sort: Difference between revisions

<lang tailspin>

templates radixsort@{base:}

def value: $;

$ / $@radixsort.digit -> #

// 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

'