25 lines
637 B
Haskell
Executable File
25 lines
637 B
Haskell
Executable File
#!/usr/bin/env runghc
|
|
|
|
getInt :: IO Int
|
|
getInt = do
|
|
readLn :: IO Int
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStr "Sisesta nr1: "
|
|
val1 <- getInt
|
|
putStr "Sisesta nr2: "
|
|
val2 <- getInt
|
|
putStr "Sisesta nr3: "
|
|
val3 <- getInt
|
|
putStr "Sisesta tehe (+ - * /): "
|
|
cmd <- getLine
|
|
|
|
putStr "Tulemus: "
|
|
case cmd of
|
|
"+" -> putStrLn $ (show (val1 + val2 + val3))
|
|
"-" -> putStrLn $ (show (val1 - val2 - val3))
|
|
"*" -> putStrLn $ (show (val1 * val2 * val3))
|
|
"/" -> putStrLn $ (show (fromIntegral val1 / fromIntegral val2 / fromIntegral val3))
|
|
_ -> putStrLn "Ei oska seda tehet teha!"
|