import Control.Monad (replicateM)

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

f :: Int -> Int -> [Int] -> Int
f n x ms = n + (x - sum ms) `div` (minimum ms)
