{"blog_title":"Yohpapa\u2019s note","url":"https://yohpapa.hatenadiary.org/entry/20100714/1279058708","provider_name":"Hatena Blog","published":"2010-07-14 07:05:08","author_name":"yohpapa","categories":["haskell"],"title":" \u95a2\u6570","width":"100%","type":"rich","provider_url":"https://hatena.blog","height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fyohpapa.hatenadiary.org%2Fentry%2F20100714%2F1279058708\" title=\" \u95a2\u6570 - Yohpapa\u2019s note\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://yohpapa.hatenadiary.org/","image_url":null,"version":"1.0","description":"8.3 \u90e8\u5206\u9069\u7528 \u306a\u308b\u307b\u3069\u3001\u5f15\u6570\u306e\u4e00\u90e8\u3092\u6307\u5b9a\u3057\u3066\u3001\u65b0\u3057\u3044\u95a2\u6570\u3092\u4f5c\u3063\u3061\u3083\u3046\u3002 \u95a2\u6570\u578b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u306e\u771f\u9aa8\u9802\u3068\u3082\u3044\u3046\u3079\u304d\u3067\u3057\u3087\u3046\u304b\u3002 \u3053\u308c\u307e\u3067\u898b\u305f\u3053\u3068\u306e\u306a\u3044\u624b\u6cd5\u3067\u3059\u3002 \u3067\u3059\u304c\u3001\u3068\u3066\u3082\u81ea\u7136\u306b\u99b4\u67d3\u3080\u8003\u3048\u65b9\u3067\u3059\u3002 \u4f55\u3068\u306a\u304f\u3067\u3059\u304c\u3001\u4eca\u307e\u3067\u306b\u3042\u307e\u308a\u3088\u304f\u7406\u89e3\u305b\u305a\u306b\u4f7f\u3063\u3066\u3044\u307e\u3057\u305f\u3002 main = do cs <- getContents putStr $ unlines $ map (myFold 60) $ lines cs myFold :: Int -> String -> String myFold _ [] = [] myFold n cs = let (cs1, cs2) = splitAt n\u2026","author_url":"https://blog.hatena.ne.jp/yohpapa/"}