David Tran’s blog

putStr' :: String -> IO ()
putStr' [] = return ()
putStr' (c:cs) =
  do putChar c
     putStr' cs

getLine' :: IO String
getLine' =
  do c <- getChar
     if c == '\n'
       then return ""
       else
         do s <- getLine'
            return (c:s)

This entry was posted on Monday, May 14th, 2007 at 9:19 pm and is filed under Haskell - SOE. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.