17 lines
325 B
Haskell
17 lines
325 B
Haskell
|
import Control.Monad (replicateM, mapM_)
|
||
|
|
|
||
|
|
f :: Floating a => a -> a
|
||
|
|
f x = sqrt (abs x) + 5 * x ** 3
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
putStrLn "Enter 11 numbers for evaluation"
|
||
|
|
x <- replicateM 11 readLn
|
||
|
|
mapM_
|
||
|
|
((\x ->
|
||
|
|
if x > 400
|
||
|
|
then putStrLn "OVERFLOW"
|
||
|
|
else print x) .
|
||
|
|
f) $
|
||
|
|
reverse x
|