Haskell Solution for Reverse Words (Google Code Jam)

reverse-words.hs

data Unsolved = Unsolved { unsolvedNumber :: Int, input :: String }
data Solved = Solved { solvedNumber :: Int, answer :: String }

instance Show Solved where
    show (Solved n ans) = "Case #" ++ (show n) ++ ": " ++ ans

main :: IO ()
main = do
    input <- fmap lines getContents
    let input' = tail input
    let cases = zipWith Unsolved [1..] input'
    mapM_ putStrLn $ map (show.solve) cases

solve :: Unsolved -> Solved
solve (Unsolved n input) = Solved n ans
    where ans = (unwords.reverse.words) input