module Main where

import Control.Applicative
import Control.Monad

main :: IO ()
main = do
    [n, x] <- fmap read . words <$> getLine
    ms <- replicateM n readLn
    let r = x - sum ms
    let m = minimum ms
    let ans = length ms + r `div` m
    print ans