Sorting algorithms/Radix sort: Difference between revisions

m
m (→‎{{header|Tailspin}}: syntax update)
Line 2,595:
..|@radixsort.positives: $value;
<=0>
..|@radixsort.negatives(-1last): $value;
<>
def bucket: $ mod $base -> \(<?($value<0..>)> $ + 1 ! <=0> $base ! <> $ !\);
Line 2,606:
$@.done -> #
<=1>
[$@.negatives(-1last..1:-1)... ..., $@.positives...] !
<>
def previous: $@.buckets;
Anonymous user