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