「Web+DB vol.66 きっちりわかるアルゴリズム」の「埋め込み性的辞書による圧縮アルゴリズム」をHaskellで module Main where type Dict = [(String, String)] dict :: Dict dict = [ ("http", "'") , (".jp", "|") , ("www", ">") , (".co", "<") , ("html"…