- or download this
perl, v5.8.0 built for MSWin32-x86-multi-thread
- or download this
#!/usr/bin/perl
...
print "\n";
}
- or download this
my @array1 = (1 .. 20);
...
'21','22','23','24','25','26','27','28','29','30',
'31','32','33','34','35','36','37','38','39','40']
- or download this
my %unique_sets;
...
'40' => [40]
}
- or download this
my %unique_counts = do{
...
'40' => 1
}
- or download this
my %duplicates = do{
...
'29' => 2,
'30' => 2
}
- or download this
my %non_duplicates = do{
...
'40' => 1
}
- or download this
my %unique_descriptive = do {
...
}
- or download this
my %max = do{
...
'count' => 3,
'values' => [20,20,20]
}
- or download this
my %min = do{
...
'count' => 1,
'values' => [40]
}
- or download this
shift @{[
map{$_->[2]}
sort{$a->[0] <=> $b->[0] || $a->[1] <=> $b->[1]}
map{[$_{$_}->{count}, $_, $_{$_}]} keys %_
]}
- or download this
... = do {
local %_ = %unique_descriptive;
...
sort{ $_{$a}->{count} <=> $_{$b}->{count} || $b <=> $a} ke
+ys %_
]}}};
};
- or download this
#!/usr/bin/perl -w
use strict;
...
print OUTPUT, $d{$_}."\n" for(sort keys %d);
close OUTPUT;