[Haskell-beginners] Reversing the lines read from stdin

[Tim Perry]

I wrote a simple program: it reads the contents from standard in and reverses the order of the lines. I imagine there are many cleaner ways to do this. Anybody willing to post some rewrites?

Thanks,
Tim


main = interact reverseFile
reverseFile s = unlines $ lines $ foldr combineStr [] (lines s) 
combineStr s1 s2 = s2 ++ "\n" ++ s1
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/beginners/attachments/20100128/9659ac7b/attachment.html