A better solution to the Google Code Jam problem "Reverse Words"

reverse_words2.hs

module Main where

{-
Problem statement:
http://code.google.com/codejam/contest/351101/dashboard#s=p1

Run as a script with runghc, or compile with ghc --make -O2

input and output is by redirection;

$ ./reverse_words < input_file > output_file
 -}

import Control.Monad

main :: IO ()
main = do
  n <- readLn
  forM_ [1..n] $ \i -> do
    solution <- fmap (unwords . reverse . words) getLine
    putStrLn $ "Case #" ++ show i ++ ": " ++ solution