ふつける練習問題その4
1 -- リストをソートする 2 import List 3 import System 4 5 main = do args <- getArgs 6 contents <- readFile (head args) 7 putStrLn $ unlines $ sortLine $ lines contents 8 9 sortLine :: [String] -> [String] 10 sortLine cs = sort cs
1 -- リストをソートする 2 import List 3 import System 4 5 main = do args <- getArgs 6 contents <- readFile (head args) 7 putStrLn $ unlines $ sortLine $ lines contents 8 9 sortLine :: [String] -> [String] 10 sortLine cs = sort cs