YAPC::EU 2018 Glasgow Update!

Task/Trabb-Pardo-Knuth-algorithm/Haskell/trabb-pardo-knuth-algorithm.hs

@@ -1,10 +1,16 @@
 import Control.Monad (replicateM, mapM_)
 
-f x = (abs x) ** 0.5 + 5 * x ** 3
+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
+  putStrLn "Enter 11 numbers for evaluation"
+  x <- replicateM 11 readLn
+  mapM_
+    ((\x ->
+         if x > 400
+           then putStrLn "OVERFLOW"
+           else print x) .
+     f) $
+    reverse x