noriok https://blog.hatena.ne.jp/noriok/ n-diary https://noriok.hatenablog.com/ Codeforces 139A - A. Petr and Book calc :: Int -> [Int] -> Int calc n pages = calc' n (cycle pages) (cycle [1..7]) where calc' n (p:pages) (d:dayWeek) | n <= p = d | otherwise = calc' (n-p) pages dayWeek main = do s <- getLine t <- getLine print $ calc (read s) (map read $ words t) 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fnoriok.hatenablog.com%2Fentry%2F2012%2F08%2F31%2F031113" title="Codeforces 139A - A. Petr and Book - n-diary" 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 2012-08-31 03:11:13 rich https://noriok.hatenablog.com/entry/2012/08/31/031113 1.0 100%