{"type":"rich","height":"190","provider_name":"Hatena Blog","published":"2009-07-15 15:21:56","author_url":"https://blog.hatena.ne.jp/sirocco/","author_name":"sirocco","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsirocco.hatenadiary.org%2Fentry%2F20090715%2F1247638916\" title=\"\u6587\u5b57\u5217\u30921\u6587\u5b57\u305a\u3064\u30d1\u30fc\u30b9\u3057\u3066\u30ea\u30b9\u30c8\u306e\u30ea\u30b9\u30c8\u3092\u4f5c\u308a\u305f\u3044 - sirocco \u306e\u66f8\u3044\u3066\u3082\u3059\u3050\u306b\u5fd8\u308c\u308b\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"url":"https://sirocco.hatenadiary.org/entry/20090715/1247638916","categories":["Haskell"],"provider_url":"https://hatena.blog","version":"1.0","blog_title":"sirocco \u306e\u66f8\u3044\u3066\u3082\u3059\u3050\u306b\u5fd8\u308c\u308b\u30e1\u30e2","blog_url":"https://sirocco.hatenadiary.org/","description":"str=\"[ [\\\"3014\\\",\\\"Null\\\",\\\"0-16-087\\\"], [\\\"1999\\\",\\\"10\\\",\\\"0-06-074\\\"] ]\" addItem :: a -> [[a]] -> [[a]] addItem item ls = (init ls)++(((last ls)++item:[]):[]) eval :: [Char] -> [[[Char]]] -> [Char] -> Bool -> [[[Char]]] eval [] out _ _ = out eval (x:xs) out str flag = case x of '[' -> eval xs (out\u2026","title":"\u6587\u5b57\u5217\u30921\u6587\u5b57\u305a\u3064\u30d1\u30fc\u30b9\u3057\u3066\u30ea\u30b9\u30c8\u306e\u30ea\u30b9\u30c8\u3092\u4f5c\u308a\u305f\u3044"}