Angle difference between two bearings: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
|||
Line 81: | Line 81: | ||
170.00000000000003 |
170.00000000000003 |
||
-170.00000041135996</pre> |
-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== |
==References== |