読者です 読者をやめる 読者になる 読者になる

or1ko's diary

日々を書きます

13

言語処理100本ノック 2015

13. col1.txtとcol2.txtをマージ
12で作ったcol1.txtとcol2.txtを結合し,元のファイルの1列目と2列目をタブ区切りで並べたテキストファイルを作成せよ.確認にはpasteコマンドを用いよ.

pasteコマンドなかったため未実施。たぶん下記の通り。

>paste col1.txt col2.txt

13.hs

import System.Environment
import System.IO.UTF8 as I8
import Data.List

main = do
  files <- getArgs
  body <- mapM (\x -> I8.readFile x >>= return . lines) files
  I8.writeFile "out.txt" $ unlines $ map unwords $ transpose body

実行は省略。文字列の出力処理に悩む。