import Control.Monad

main :: IO()
main = do
  i <- map (read:: String -> Int) .words <$> getLine
  let n = head i
  let x = last i
  m <- replicateM n getLine
  let m2 = map (read:: String -> Int) m
  print $ n + (x - sum m2) `div` minimum m2