45 lines
982 B
Raku
45 lines
982 B
Raku
use utf8;
|
|
|
|
my @names = (
|
|
"North",
|
|
"North by east",
|
|
"North-northeast",
|
|
"Northeast by north",
|
|
"Northeast",
|
|
"Northeast by east",
|
|
"East-northeast",
|
|
"East by north",
|
|
"East",
|
|
"East by south",
|
|
"East-southeast",
|
|
"Southeast by east",
|
|
"Southeast",
|
|
"Southeast by south",
|
|
"South-southeast",
|
|
"South by east",
|
|
"South",
|
|
"South by west",
|
|
"South-southwest",
|
|
"Southwest by south",
|
|
"Southwest",
|
|
"Southwest by west",
|
|
"West-southwest",
|
|
"West by south",
|
|
"West",
|
|
"West by north",
|
|
"West-northwest",
|
|
"Northwest by west",
|
|
"Northwest",
|
|
"Northwest by north",
|
|
"North-northwest",
|
|
"North by west",
|
|
);
|
|
my @angles = (0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38,
|
|
101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62,
|
|
185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0,
|
|
286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38);
|
|
|
|
for (@angles) {
|
|
my $i = int(($_ * 32 / 360) + .5) % 32;
|
|
printf "%3d %18s %6.2f°\n", $i + 1, $names[$i], $_;
|
|
}
|