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