fork download
copy 
  1. import System.IO
  2.  
  3. prompt :: String -> IO String
  4. prompt text = do
  5.   putStr text
  6.   hFlush stdout
  7.   getLine
  8.  
  9. sqrtEquation :: Double -> Double -> Double -> String
  10. sqrtEquation a b c
  11.   | d < 0 = "No solutions"
  12.   | d == 0 = (show x1)
  13.   | d > 0 = (show x1) ++ " and " ++ (show x2)
  14.   where d = (b*b - 4*a*c)
  15.         x1 = ((-b + sqrt(d))/2*a)
  16. 	x2 = ((-b - sqrt(d))/2*a)
  17.  
  18.  
  19. main = do
  20.   a <- prompt "Input a: "
  21.   b <- prompt "Input b: "
  22.   c <- prompt "Input c: "
  23.   let result = sqrtEquation (read a) (read b) $ read c
  24.   putStrLn result
  25.  
Success #stdin #stdout 0s 4824KB
comments (?)
stdin
copy 
1
1
-6
stdout
copy 
Input a: Input b: Input c: 2.0 and -3.0
https://ideone.com/Rd8YhI
language:
Haskell (ghc 8.4.4)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!