- sort.hs
import System import List main = do cs <- getContents putStr $ sortLines cs sortLines :: String -> String sortLines cs = unlines $ map sort $ lines cs
- uniq.hs
import System import List main = do cs <- getContents putStr $ groupLines cs groupLines :: String -> String groupLines cs = unlines $ map head $ group $ lines cs
uniq.hsに関してはまとめるだけなのか、まとめてから表示するのか微妙だったけど、とりあえず今までが全部コンソールに表示系のプログラムだったのでそうしてみた。