[Comp] ふつける

4章まで読み終えた。
関数合成と部分適用を使わないsort。

import List

main = do cs <- getContents

          putStr $ unlines $ sort $ lines cs 

同じくuniq。sortよりちょっと複雑。

import List

main = do cs <- getContents

          putStr $ unlines $ uniq $ lines cs 

uniq :: [String] -> [String]

uniq xs = map head $ group xs