Angle difference between two bearings: Difference between revisions

→‎BQN: cleanup
(→‎BQN: simplify)
(→‎BQN: cleanup)
Line 1,735:
 
=={{header|BQN}}==
<syntaxhighlight lang="bqn">Adiff ← 180 +- ¯360 | 180 -+ -
 
tests ← [20‿45, ¯45 ‿4545‿45, ¯85 ‿9085‿90, ¯95 ‿9095‿90, ¯45 ‿12545‿125, ¯45 ‿14545‿145
99‿279, 29.4803‿¯88.6381, ¯78.3251‿¯159.036
¯70099.74233810938‿29840.67437876723
¯165313.6666297357‿33693.9894517456
Line 1,755:
¯45 125 170
¯45 145 ¯170
99 279 180
29.48 ¯88.638 ¯118.118
¯78.325 ¯159.036 ¯80.711
559

edits