Rosetta Code

Sorting algorithms/Counting sort: Difference between revisions

Page Discussion

Sorting algorithms/Counting sort (view source)

Revision as of 18:32, 4 September 2012

56 bytes removed ,  11 years ago
→‎{{header|Perl 6}}: edit for style
(→‎{{header|REXX}}: changed program and subroutine structure, indented DO loop, changed DO index names, changed some variable names. -- ~~~~)
(→‎{{header|Perl 6}}: edit for style)
Line 1,089:
 
=={{header|Perl 6}}==
<lang perl6>sub counting_sortcounting-sort ( @a ints) {
my ( $min, $max )off = @ints.min, .max given @a.minmax;
(my @counts)[ $_ - $min off]++ for @aints;▼
 
my @counts;.kv.map: { ($^k + $off) xx ($^v // 0) }
▲ @counts[ $_ - $min ]++ for @a;
 
return @counts.kv.map: { $^k + $min xx $^v if $^v };
}
 
myconstant @all_agesage-range = 2 .. 102;
my @ages = @age-range.roll(^50).map: { @all_ages.pick };
say @ages.&counting-sort.Str eq~~ @ages.&counting_sort.Strsort ?? 'ok' !! 'not ok';</lang>
</lang>
 
=={{header|PHP}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/110556"