Angle difference between two bearings: Difference between revisions
Angle difference between two bearings (view source)
Revision as of 03:35, 16 December 2016
, 7 years ago→{{header|Perl 6}}: Add a Perl 6 example
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
|||
Line 81:
170.00000000000003
-170.00000041135996</pre>
=={{header|Perl 6}}==
{{works with|Rakudo|2016.11}}
<lang perl6>sub infix:<∠> (Int $b1, Int $b2) {
(my $b = ($b2 - $b1 + 720) % 360) > 180 ?? $b - 360 !! $b;
}
# TESTING
for 20, 45,
-45, 45,
-85, 90,
-95, 90,
-45, 125,
-45, 145
-> $b1, $b2 { say "$b1 ∠ $b2 = ", $b1 ∠ $b2 }</lang>
{{out}}
<pre>20 ∠ 45 = 25
20 ∠ 45 = 25
-45 ∠ 45 = 90
-85 ∠ 90 = 175
-95 ∠ 90 = -175
-45 ∠ 125 = 170
-45 ∠ 145 = -170</pre>
==References==
|