入出力の練習。ファイルの内容を表示する。
import System
main = do args <- getArgs
mapM_ catFile args
catFile fileName = do contents <- readFile fileName
putStr $ contents
コンパイルして実行。
>cat sample.txt FORTRAN AWK sed C++ Perl Ruby Javascript VBA Haskell
readFile はファイルを読み込む。 mapM_ は動作を繰り返す。この場合は引数に指定したファイルについて繰り返す。
>cat week.txt year.txt Sun Mon Tue Wed Thu Fri Sat Jan Feb Mar Apl May Jun Jul Aug Seb Oct Nov Dec