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