http://ja.doukaku.org/17/より。いたってふつう。 module Main (main) where removeComment :: String -> String removeComment [] = [] removeComment ('/' : '*' : xs) = inComment xs removeComment (x : xs) = x : removeComment xs inComment :: Strin…

18:00ごろ帰りました。

ライブドアブログ（livedoor Blog）｜ 読みたいブログが見つかるより。 HaskellはData.Listにgroupって関数があるので、これを使うと簡単に書けます。こんな感じ。 module Main (main) where import Data.Char (digitToInt) import Data.List (group) runlen…

エロと風俗情報満載 どう抜く？ってHaskellだったらnubだなぁと思って、GHCのソースを見てみるとふたつ実装がありました。 まずひとつ目。USE_REPORT_PRELUDEが定義されているときはこちらを使っているみたいです。 nub :: (Eq a) => [a] -> [a] nub = nubBy…