import Control.Monad

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

solve :: Int -> [Int] -> Int
solve x ms = (p `div` q) + r
  where
    p = x - sum ms
    q = minimum ms
    r = length ms
