Some Haskell excercises

viikko43.hs

#!/usr/bin/env runhaskell
import System.IO
import Control.Monad
import qualified Data.Text as T

splitLines :: String -> [String]
splitLines s = map T.unpack $ T.splitOn (T.pack ",") $ T.pack s

readNumbers :: [String] -> [Int]
readNumbers = map (\x -> read x :: Int)

lineSum :: String -> Int
lineSum s = sum $ readNumbers $ splitLines s

mainloop :: Handle -> IO ()
mainloop inh = do
    eof <- hIsEOF inh
    unless eof $ do
        z <- getLine
        print $ lineSum z
        mainloop inh

main :: IO ()
main = mainloop System.IO.stdin