import Control.Applicative

main = do
   [n,x] <- map read . words <$> getLine
   ms <- sequence (replicate n readLn)
   print $ solve n x ms

solve :: Int -> Int -> [Int] -> Int
solve n x ms = n + div remainder min
    where remainder = x - sum ms
          min = minimum ms

