sqrtEquation :: Double -> Double -> Double -> String
sqrtEquation a b c
  | d < 0 = "No solutions"
  | d == 0 = (show x1)
  | d > 0 = (show x1) ++ " and " ++ (show x2)
  where d = (b*b - 4*a*c)
        x1 = ((-b + sqrt(d))/2*a)
	x2 = ((-b - sqrt(d))/2*a)
 
 
main = do
  putStr "Input a:"
  a <- getLine
  putStr "Input b:"
  b <- getLine
  putStr "Input c:"
  c <- getLine
  let result = sqrtEquation (read a) (read b) $ read c
  putStrLn result

c3FydEVxdWF0aW9uIDo6IERvdWJsZSAtPiBEb3VibGUgLT4gRG91YmxlIC0+IFN0cmluZwpzcXJ0RXF1YXRpb24gYSBiIGMKICB8IGQgPCAwID0gIk5vIHNvbHV0aW9ucyIKICB8IGQgPT0gMCA9IChzaG93IHgxKQogIHwgZCA+IDAgPSAoc2hvdyB4MSkgKysgIiBhbmQgIiArKyAoc2hvdyB4MikKICB3aGVyZSBkID0gKGIqYiAtIDQqYSpjKQogICAgICAgIHgxID0gKCgtYiArIHNxcnQoZCkpLzIqYSkKCXgyID0gKCgtYiAtIHNxcnQoZCkpLzIqYSkKCgptYWluID0gZG8KICBwdXRTdHIgIklucHV0IGE6IgogIGEgPC0gZ2V0TGluZQogIHB1dFN0ciAiSW5wdXQgYjoiCiAgYiA8LSBnZXRMaW5lCiAgcHV0U3RyICJJbnB1dCBjOiIKICBjIDwtIGdldExpbmUKICBsZXQgcmVzdWx0ID0gc3FydEVxdWF0aW9uIChyZWFkIGEpIChyZWFkIGIpICQgcmVhZCBjCiAgcHV0U3RyTG4gcmVzdWx0

MTYKMAow

16
0
0