- lrstrip.hs
lrstrip :: String -> String lrstrip = rstrip . lstrip
- tail2.hs
main = do cs <- getContents putStr $ lastNLines 10 cs lastNLines :: Int -> String -> String lastNLines n = unlines . reverse . take n . reverse . lines
- fgrep.hs
fgrep :: String -> String -> String fgrep pattern = unlines . filter (match pattern) . lines match :: String -> String -> Bool match pattern = any (pattern `isPrefixOf`) . tails
最後の問題は第8章内でやってるじゃん。問題解いてる途中で気が付いた。だけど、ポイントフリースタイルは慣れるまで上手く書けそうにないなぁ。