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