3 lines
136 B
APL
3 lines
136 B
APL
r←6371
|
||
hf←{(p q)←○⍺ ⍵÷180 ⋄ 2×rׯ1○(+/(2*⍨1○(p-q)÷2)×1(×/2○⊃¨p q))*÷2}
|
||
36.12 ¯86.67 hf 33.94 ¯118.40
|