blob: 4cbd06e2a2605892456e351dc2db534eb629f4f0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#!/usr/bin/env perl
use strict;
use warnings;
use v5.26;
my @inputs=@ARGV > 0 ? @ARGV : (10,20,20,51);
@inputs =sort @inputs;
sub rank1224 {
my $ref=sub {map {
state $prev=$_;
state $count=0;
$count= ($prev != $$_[1])? 1: $count +1;
$prev=$$_[1];
$$_[0]+2-$count;
}
(map {state $i;[$i++,$_]} @_);
};
&$ref(@_);
}
sub rank1334 {
my @r=rank1224(reverse @_);
map {@r+1 - $_} reverse @r;
}
sub rank1223 {
map {
state $prev=$_;
state $r=1;
$r= ($prev != $_) ? $r+1: $r;
$prev=$_;
$r;
} @_;
}
print "Inputs: ",join " ",@inputs;
print "\n";
print "1224 Ranking: ",join ' ', rank1224(@inputs);
print "\n";
print "1334 Ranking: ",join ' ', rank1334(@inputs);
print "\n";
print "1223 Ranking: ", join ' ', rank1223(@inputs);
|
