Hadoopテスト mapper

mapper.hs

import System.IO
import Control.Applicative
import Control.Monad

main = do
  isEnd <- isEOF
  unless isEnd $ do
    ws <- words <$>  getLine
    forM_ ws $ \w -> do
      putStrLn (w ++ "\t1")
    main