{"published":"2007-01-25 21:38:17","provider_url":"https://hatena.blog","author_name":"ha-tan","author_url":"https://blog.hatena.ne.jp/ha-tan/","provider_name":"Hatena Blog","type":"rich","blog_url":"https://ha-tan.hatenadiary.org/","height":"190","url":"https://ha-tan.hatenadiary.org/entry/20070125/1169728697","width":"100%","categories":["Haskell"],"description":"\u3092\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\u3002\u3069\u30fc\u3082cut\u30b3\u30de\u30f3\u30c9\u306f\u30c7\u30d5\u30a9\u30eb\u30c8\u306e\u533a\u5207\u308a\u6587\u5b57\u3068\u304b\u30aa\u30d7\u30b7\u30e7\u30f3\u306e\u6307\u5b9a\u65b9\u6cd5\u304c\u597d\u304d\u306b\u306a\u308c\u306a\u3044\u306e\u3067\u2026 module Main (main) where import Cinnamon (readFiles) import System (getArgs) import System.IO (stderr, hPutStrLn) main :: IO () main = do args <- getArgs case args of (n : files) -> mapM_ putStrLn . field (read n - 1) =<< readFiles files _ -> hP\u2026","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fha-tan.hatenadiary.org%2Fentry%2F20070125%2F1169728697\" title=\" cut\u30b3\u30de\u30f3\u30c9\u3082\u3069\u304d - \u8da3\u5473\u7684\u306b\u3063\u304d\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"\u8da3\u5473\u7684\u306b\u3063\u304d","image_url":null,"title":" cut\u30b3\u30de\u30f3\u30c9\u3082\u3069\u304d","version":"1.0"}