wvogel00 https://blog.hatena.ne.jp/wvogel00/ wvogel日記 https://wvogel00.hatenadiary.org/ Haskell func_hsさんが放送していたのをきっかけに、codeforcesの問題に久々に挑戦してみた。 問題文はこちら見た感じ、Haskellが得意そうな問題です 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 =… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwvogel00.hatenadiary.org%2Fentry%2F20111108%2F1320763756" title="codeforces - wvogel日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-11-08 23:49:16 rich https://wvogel00.hatenadiary.org/entry/20111108/1320763756 1.0 100%