Seasons.NET

ちょっとした技術ブログです

学習その1

 1 -- こんなファイルがあったとき
 2 --
 3 -- size.txt
 4 -- 100
 5 -- 10
 6 -- 1024
 7 --
 8 -- size.hs <- size.txt
 9 --
10 -- FileSize:100
11 -- FileSize:10
12 -- FileSize:1024
13 --
14 -- と出力する
15 main = do cs <- getContents
16           putStrLn $ unlines $ map (\x -> "FileSize:"++x) $ lines cs
17           -- putStrLn $ unlines $ sizePut cs
18 
19 sizePut :: String -> [String]
20 sizePut cs = map (\x -> "FileSize:"++x) $ lines cs