import Control.Monad

main = do
  (n:x:xs) <- map read . words <$> getLine
  ns <- forM [1..n] $ \t -> do
    read <$> getLine
  putStrLn . show $ solve x ns

solve :: Int -> [Int] -> Int
solve x ns = (length ns) + (x - (sum ns)) `div` (minimum ns)