import Control.Monad

main :: IO ()
main = do
    [n, x] <- map ( read :: String -> Int) . words <$> getLine
    mass <- map ( read :: String -> Int ) <$> replicateM n getLine
    let
        massMin = minimum mass
        massSum = sum mass
        result = n + ( x - massSum ) `div` massMin
    print result
