achempion/sample.hs
Last active Aug 29, 2015

Star 0
Fork 0

Raw

      
        main :: IO ()
      
        main = do
      
            str <- getLine
      
            let [a,b] = words str
      
            return ((read a :: Int) + (read b :: Int))

vlm commented Sep 19, 2014

main = do
  str <- getLine
  print $ sum $ map read $ words str

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

You can’t perform that action at this time.