Codeforces 139A - A. Petr and Book

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)