
19 Feb
2005
19 Feb
'05
1:56 a.m.
At 5:27 PM -0800 2/18/05, Isaac Jones wrote:
John Goerzen
writes: Here's an alternative:
module Main where
(snip john's version)
And what list would be complete without a points-free version. It doesn't operate on stdin, though like John's does:
pointsFreeCat :: IO () pointsFreeCat = getArgs >>= mapM readFile >>= putStrLn . concat
-- And a regular version for reference
cat2 :: IO () cat2 = do a <- getArgs lines <- mapM readFile a putStrLn $ concat lines
peace,
isaac
You probably want `putStr` instead of `putStrLn`, as the latter introduces a gratuitous newline at the end of the concatenated contents. Dean