import Control.Applicative
import Control.Monad


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

solve ms x =
  div rest m  
  where
    rest = x - sum ms
    m = minimum ms
  
  
  
  
