Angle difference between two bearings: Difference between revisions

Content added Content deleted
(→‎BQN: simplify)
(→‎BQN: cleanup)
Line 1,735: Line 1,735:


=={{header|BQN}}==
=={{header|BQN}}==
<syntaxhighlight lang="bqn">Adiff ← 180 + ¯360 | 180 - -
<syntaxhighlight lang="bqn">Adiff ← 180 - 360 | 180 + -


tests ← [20‿45, ¯45 ‿45, ¯85 ‿90, ¯95 ‿90, ¯45 ‿125, ¯45 ‿145
tests ← [20‿45, ¯45‿45, ¯85‿90, ¯95‿90, ¯45‿125, ¯45‿145
29.4803‿¯88.6381, ¯78.3251‿¯159.036
99‿279, 29.4803‿¯88.6381, ¯78.3251‿¯159.036
¯70099.74233810938‿29840.67437876723
¯70099.74233810938‿29840.67437876723
¯165313.6666297357‿33693.9894517456
¯165313.6666297357‿33693.9894517456
Line 1,755: Line 1,755:
¯45 125 170
¯45 125 170
¯45 145 ¯170
¯45 145 ¯170
99 279 180
29.48 ¯88.638 ¯118.118
29.48 ¯88.638 ¯118.118
¯78.325 ¯159.036 ¯80.711
¯78.325 ¯159.036 ¯80.711
Retrieved from "https://rosettacode.org/wiki/Angle_difference_between_two_bearings"