import Control.Monad

solve :: Int -> [Int] -> Int
solve all grams = count + (remains `div` minGram)
  where count = length grams
        sumOfGrams = sum grams
        remains = all - sumOfGrams
        minGram = minimum grams

main :: IO ()
main = do
  [count, all] <- map read . words <$> getLine
  grams <- replicateM count readLn
  print $ solve all grams