import Control.Applicative ((<$>))
import Control.Monad (replicateM)

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

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