練習問題

今日はuniq.hs。

import List

main = do cs <- getContents
          putStr $ unlines $ map head $ group $ lines cs

関数がたくさん連続すると混乱しそうです。