Vielä kolmas yritys. Nyt olen käynyt läpi myös kertaalleen tarkastaen nuo pisteet, että niiden pitäisi olla syötetty oikein.
Jos haluatte tarkistaa siirsinkö pisteet threadista oikein ja onko koodissani vikaa ;) niin:
Code:
%o = (
'1' => 'typo',
'2' => 'ninni',
'3' => 'Huura Tavaton',
'4' => 'Exlex',
'5' => 'Caro2',
'6' => 'efo',
'7' => 'kilobitti',
'8' => 'Lene',
'9' => 'late',
'10' => 'kimitys',
'11' => 'Samu',
'12' => 'jaywink',
'13' => 'juGis',
'14' => 'Freja',
);
@a = (
[12,9,4],
[9,12,14],
[9,3,7],
[4,3,12],
[7,9,3],
[4,3,9],
[9,14,4],
[5,12,13],
[12,9,4],
[9,5,13],
[3,12,9], # 3,2,3 tulkittu 3,2,1
[7,12,4],
[12,9,5],
[7,9,6],
[7,10,4],
[12,4,9],
[9,12,7],
[5,12,1],
[13,9,5],
[13,5,6],
[10,13,4],
[9,5,12],
[5,9,12],
[5,7,4],
[13,14,10],
[13,7,3],
[10,9,13],
[3,12,8],
# [5,13,?] poistettu
[4,3,9],
[5,9,10],
[1,6,5],
[14,10,7],
[8,9,13],
);
for $i ( @a ) {
$h{ $i->[0] } += 3;
$h{ $i->[1] } += 2;
$h{ $i->[2] } += 1;
}
for $i ( 1..14 ) {
$h{$i} ||= 0;
push @t, [$i, $h{$i}];
}
print "\nTulokset numeron mukaan:\n";
ulos($_) for @t;
print "\nTulokset sijan mukaan:\n";
ulos($_) for sort { $b->[1] <=> $a->[1] } @t;
sub ulos { print sprintf("%2d",$_[0]->[0]) . ' ' . sprintf("% -13s",$o{$_[0]->[0]}) . ' : ' . sprintf("%2d",$_[0]->[1]) . $/; }
ja mukava kun oma kuvakin ylsi kakkoseksi 