Submission #108233

---

Source Code Expand

use strict;
my $temp = <STDIN>;
my ($deg, $dis) = split(" ", $temp);
my $husoku = $dis /60;
my $kakudo = $deg/10;
my $huryoku = 0;
my $hukou = 'C';
my $hukou_matrix = [
    'NNE', 'NE', 'ENE', 'E', 'ESE', 'SE', 'SSE', 'S', 'SSW', 'SW', 'WSW', 'W', 'WNW', 'NW', 'NNW',
];
my $huryoku_matrix = [
    +{f => 0.0, a => 0.2},
    +{f => 0.3, a => 1.5},
    +{f => 1.6, a => 3.3},
    +{f => 3.4, a => 5.4},
    +{f => 5.5, a => 7.9},
    +{f => 8.0, a => 10.7},
    +{f => 10.8, a => 13.8},
    +{f => 13.9, a => 17.1},
    +{f => 17.2, a => 20.7},
    +{f => 20.8, a => 24.4},
    +{f => 24.5, a => 28.4},
    +{f => 28.5, a => 32.6},
];
my $af_husoku = sprintf("%.1f", $husoku);
if ($af_husoku >= 32.7) {
    $huryoku = 12;
} else {
    for my $i (0..11) {
        if ($huryoku_matrix->[$i]->{f} <= $af_husoku && $huryoku_matrix->[$i]->{a} >= $af_husoku) {
            $huryoku = $i;
            last;
        }
    }
}
if ($huryoku != 0) {
    for my $i (0..14) {
        if (11.25 + 22.5 * $i <= $kakudo && 33.75 + 22.5 * $i > $kakudo) {
            $hukou = $hukou_matrix->[$i];
            last;
        }
    }
    if ($hukou eq 'C') {
        $hukou = 'N';
    }
}

print "$hukou $huryoku\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result