Submission #3245079

---

Source Code Expand

module Main where

import Control.Applicative
import Control.Monad

main :: IO ()
main = do
    n <- readLn
    [d, x] <- fmap read . words <$> getLine
    as <- replicateM n readLn
    let eat a = (d + a - 1) `div` a
    let ans = (sum $ fmap eat as) + x
    print ans

Submission Info

Judge Result