
28 Jan
2010
28 Jan
'10
3:53 p.m.
Anybody willing to post some rewrites? main = interact reverseFile reverseFile s = unlines $ lines $ foldr combineStr [] (lines s) combineStr s1 s2 = s2 ++ "\n" ++
I personally find the point-free version easier to read.. reverseFile = unlines . lines . foldr combineStr [] . lines Vs reverseFile s = unlines $ lines $ foldr combineStr [] (lines s)