TPK algorithm: Difference between revisions

Revision as of 18:15, 26 July 2013

Revision as of 20:37, 26 August 2013

Line 134:

===[[Haskell (programming language)|Haskell]]===

<source lang="haskell">

f :: Floating a => a -> a

f x = sqrt (abs x) + 5 * x ^ 3

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

message :: Num a => a -> String

main = interact $ unlines . map (message . f . read) . reverse . lines

message x

</source>

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

Haskell uses monads for input/output. Iteration was replaced by recursion in the language.

| otherwise = show x

main :: IO ()

main = do

values <- replicateM 11 readLn

mapM_ (putStrLn . message . f) values</source>

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