Skip to main content
deleted 10 characters in body
Source Link
Asone Tuhid
  • 2.4k
  • 10
  • 23

Haskell, 68 66 52 5251 bytes

s=cos;h s=cos;(a !b )c d=1737*acos(s(a-c)+s a*s c*(s(d-b)-1))

Try it online!Try it online!

Now using Neil's method.-1 byte thanks to BMO

Haskell, 68 66 52 bytes

s=cos;h a b c d=1737*acos(s(a-c)+s a*s c*(s(d-b)-1))

Try it online!

Now using Neil's method.

Haskell, 68 66 52 51 bytes

s=cos;(a!b)c d=1737*acos(s(a-c)+s a*s c*(s(d-b)-1))

Try it online!

-1 byte thanks to BMO

deleted 1 character in body
Source Link
Asone Tuhid
  • 2.4k
  • 10
  • 23

Haskell, 68 66 6652 bytes

x%y=sin((x-y)/2)^2;hs=cos;h a b c d=3474*asind=1737*acos(s(c%a+cosa-c)+s a*cosa*s c*d%bc*(s(d-b)**0.5-1))

Try it online!Try it online!

Now using Neil's method.

Haskell, 68 66 bytes

x%y=sin((x-y)/2)^2;h a b c d=3474*asin((c%a+cos a*cos c*d%b)**0.5)

Try it online!

Haskell, 68 66 52 bytes

s=cos;h a b c d=1737*acos(s(a-c)+s a*s c*(s(d-b)-1))

Try it online!

Now using Neil's method.

added 8 characters in body
Source Link
Asone Tuhid
  • 2.4k
  • 10
  • 23

Haskell, 6868 66 bytes

q x=sinx%y=sin((x-y)/2)^2;h a b c d=3474*asin((q(c-a)+cosc%a+cos a*cos c*q(d-b)c*d%b)**0.5)

Try it online!Try it online!

Haskell, 68 bytes

q x=sin(x/2)^2;h a b c d=3474*asin((q(c-a)+cos a*cos c*q(d-b))**0.5)

Try it online!

Haskell, 68 66 bytes

x%y=sin((x-y)/2)^2;h a b c d=3474*asin((c%a+cos a*cos c*d%b)**0.5)

Try it online!

Source Link
Asone Tuhid
  • 2.4k
  • 10
  • 23
Loading