RosettaCodeData/Task/Angle-difference-between-two-bearings/Uiua/angle-difference-between-two-bearings.uiua
2026-04-30 12:34:36 -04:00

7 lines
330 B
Text

Wrap ← ◌◌⍢(⊙⟜+|<⊙⋅∘)⊙◌⊢⟜(⍢(⊙⟜-|>⊙⋅∘)⊣)⟜/-
Diff ← Wrap [¯180 180]/-
[20_45 ¯45_45 ¯85_90 ¯95_90 ¯45_125 ¯45_145 29.4803_¯88.6381 ¯78.3251_¯159.036]
≡(⁅₃Diff)
[¯70099.7423_29840.6744 ¯165313.6666_33693.9895
1174.8381_¯154146.6649 60175.7731_42213.0719]
≡(⁅₃Diff)