Skip to main content
added 191 characters in body
Source Link
jxh
  • 351
  • 5
  • 11

C (gcc), 100 88 6565 64 bytes

88 → 65 using @miles' formula
65 → 64 using @Neil's formula

#define d(w,x,y,z)1737*acos(sincos(w)*sin(-y)+cos(w)*cos(y)*cos*(cos(z-x)-1))

Try it online!Try it online!

C (gcc), 100 88 65 bytes

88 → 65 using @miles' formula

#define d(w,x,y,z)1737*acos(sin(w)*sin(y)+cos(w)*cos(y)*cos(z-x))

Try it online!

C (gcc), 100 88 65 64 bytes

88 → 65 using @miles' formula
65 → 64 using @Neil's formula

#define d(w,x,y,z)1737*acos(cos(w-y)+cos(w)*cos(y)*(cos(z-x)-1))

Try it online!

added 144 characters in body
Source Link
jxh
  • 351
  • 5
  • 11

C (gcc), 100 8888 65 bytes

88 → 65 using @miles' formula

#define d(w,x,y,z)3474*asin(sqrt(pow1737*acos(sin(y/2-w/2),2*sin(y)+cos(w)*cos(y)*pow(sin*cos(z/2-x/2),2)))

Try it online!Try it online!

C (gcc), 100 88 bytes

#define d(w,x,y,z)3474*asin(sqrt(pow(sin(y/2-w/2),2)+cos(w)*cos(y)*pow(sin(z/2-x/2),2)))

Try it online!

C (gcc), 100 88 65 bytes

88 → 65 using @miles' formula

#define d(w,x,y,z)1737*acos(sin(w)*sin(y)+cos(w)*cos(y)*cos(z-x))

Try it online!

Don't need a function, when a macro will do.
Source Link
jxh
  • 351
  • 5
  • 11

C (gcc), 100100 88 bytes

double#define d(w,x,y,z;d(z){return.5+3474*asin3474*asin(sqrt(pow(sin(y/2-w/2),2)+cos(w)*cos(y)*pow(sin(z/2-x/2),2)));}

Try it online!Try it online!

C (gcc), 100 bytes

double w,x,y,z;d(){return.5+3474*asin(sqrt(pow(sin(y/2-w/2),2)+cos(w)*cos(y)*pow(sin(z/2-x/2),2)));}

Try it online!

C (gcc), 100 88 bytes

#define d(w,x,y,z)3474*asin(sqrt(pow(sin(y/2-w/2),2)+cos(w)*cos(y)*pow(sin(z/2-x/2),2)))

Try it online!

Source Link
jxh
  • 351
  • 5
  • 11
Loading