import Control.Monad

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

solve :: Int -> Int -> [Int] -> Int
solve n x ms = n + (x' `div` m0)
  where
    m0 = minimum ms
    x' = x - sum ms
