{"type":"rich","provider_url":"https://hatena.blog","title":"codeforces","blog_url":"https://wvogel00.hatenadiary.org/","url":"https://wvogel00.hatenadiary.org/entry/20111108/1320763756","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwvogel00.hatenadiary.org%2Fentry%2F20111108%2F1320763756\" title=\"codeforces - wvogel\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","height":"190","description":"func_hs\u3055\u3093\u304c\u653e\u9001\u3057\u3066\u3044\u305f\u306e\u3092\u304d\u3063\u304b\u3051\u306b\u3001codeforces\u306e\u554f\u984c\u306b\u4e45\u3005\u306b\u6311\u6226\u3057\u3066\u307f\u305f\u3002 \u554f\u984c\u6587\u306f\u3053\u3061\u3089\u898b\u305f\u611f\u3058\u3001Haskell\u304c\u5f97\u610f\u305d\u3046\u306a\u554f\u984c\u3067\u3059 main = do nab <- getLine let (n:a:b:_) = map read $ words nab print $ findAnswer (take n $ repeat 1) a b findAnswer :: [Int] -> Int -> Int -> Int findAnswer list a b = length $ filter f [0..a] where f :: Int -> Bool f k =\u2026","author_name":"wvogel00","width":"100%","blog_title":"wvogel\u65e5\u8a18","published":"2011-11-08 23:49:16","version":"1.0","author_url":"https://blog.hatena.ne.jp/wvogel00/","categories":["Haskell"],"provider_name":"Hatena Blog","image_url":null}