YAMAGUCHI::weblog::Haskell

2006-07-07 (Fri)

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

AnandAnand 2013/03/29 13:31 BS low - rtaioanltiy high! Really good answer!

neqlbohvouneqlbohvou 2013/03/30 14:15 7ceFsh <a href="http://eqytygdesrqg.com/">eqytygdesrqg</a>

exvwalmvvexvwalmvv 2013/04/01 10:36 6nClff , [url=http://hsowvpfdwrtb.com/]hsowvpfdwrtb[/url], [link=http://xdddzuwxqkoa.com/]xdddzuwxqkoa[/link], http://zemaomumgbnr.com/

ゲスト



トラックバック - http://haskell.g.hatena.ne.jp/ymotongpoo/20060707