import Control.Applicative
import Control.Monad

main = do
    [n, x] <- map read . words <$> getLine
    ms <- map read <$> replicateM n getLine
    putStrLn $ show $ ans n x ms

ans n x ms = ((x - (sum ms)) `div` (foldl1 min ms)) + n
