Skip to main content
added 5 characters in body
Source Link
flawr
  • 44.1k
  • 7
  • 109
  • 253

Haskell, 70 69 68 6867 bytes

s#f|y<-1.96^2=[(s+y/2+k*1.96*sqrt2+k*sqrt(s*fs*f*y/(s+f)+y+y^2/4))/(s+f+y)|k<-[-1,1]] 

Try it online!Try it online!

Haskell, 70 69 68 bytes

s#f|y<-1.96^2=[(s+y/2+k*1.96*sqrt(s*f/(s+f)+y/4))/(s+f+y)|k<-[-1,1]] 

Try it online!

Haskell, 70 69 68 67 bytes

s#f|y<-1.96^2=[(s+y/2+k*sqrt(s*f*y/(s+f)+y^2/4))/(s+f+y)|k<-[-1,1]] 

Try it online!

deleted 3 characters in body
Source Link
flawr
  • 44.1k
  • 7
  • 109
  • 253

Haskell, 7070 69 68 bytes

s#f|n<s#f|y<-s+f=[(s+11.9208+k*196^2=[(s+y/2+k*1.96*sqrt(s*f/n+0.9604(s+f)+y/4))/(n+3.8416s+f+y)|k<-[-1,1]] 

Try it online!Try it online!

Haskell, 70 bytes

s#f|n<-s+f=[(s+1.9208+k*1.96*sqrt(s*f/n+0.9604))/(n+3.8416)|k<-[-1,1]] 

Try it online!

Haskell, 70 69 68 bytes

s#f|y<-1.96^2=[(s+y/2+k*1.96*sqrt(s*f/(s+f)+y/4))/(s+f+y)|k<-[-1,1]] 

Try it online!

Source Link
flawr
  • 44.1k
  • 7
  • 109
  • 253

Haskell, 70 bytes

s#f|n<-s+f=[(s+1.9208+k*1.96*sqrt(s*f/n+0.9604))/(n+3.8416)|k<-[-1,1]] 

Try it online!