import Control.Arrow
import Control.Monad
import Data.Bits
import Data.Char
import Data.List

main :: IO ()
main = do
  [n, x] <- getInts
  ms <- replicateM n getInt
  print $ n + (x - sum ms) `div` minimum ms

getInt :: IO Int
getInt = readLn

getInts :: IO [Int]
getInts = map read . words <$> getLine
