import Control.Monad
import Control.Applicative

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

solve :: Int -> [Int] -> Int
solve x ms = let
  x' = x - sum ms
  mmin = minimum ms
  in div x' mmin
