YAMAGUCHI::weblog

土足で窓から失礼いたします。今日からあなたの息子になります。 当年とって92歳、下町の発明王、エジソンです。

ふつうのHaskellプログラミング 第8章 練習問題

  • 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章内でやってるじゃん。問題解いてる途中で気が付いた。だけど、ポイントフリースタイルは慣れるまで上手く書けそうにないなぁ。