Seasons.NET

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

ふつける練習問題その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