TPK algorithm: Difference between revisions

Revision as of 08:39, 20 April 2013

Revision as of 22:48, 30 April 2013

Line 115:

<source lang="haskell">

import Control.Monad

f x = mfilter (<=400) $ Just $ sqrt (abs x) + 5 * x ^ 3

message x = if x > 400 then "TOO LARGE" else show x

main :: IO ()

main = replicateM 11 $ getLine >>= putStrLn . message . read

main = mapM_ (maybe (putStrLn "TOO LARGE") print.f.read) . reverse =<< replicateM 11 getLine

f :: Double -> Maybe Double

f x = mfilter (<=400) $ Just $ sqrt (abs x) + 5*x^3

</source>

Haskell uses monads for input/output. andIteration theis Maybereplaced databy typerecursion toin signalthe overflowlanguage.

===[[Java_(programming_language)|Java 5]]===