import Control.Monad
import Text.Printf
import Control.Applicative
import Data.List as L

getInts :: IO [Int]
getInts = map read . words <$> getLine

main :: IO()
main = do
  [n, x] <- map read . words <$> getLine
  m <- replicateM n getInts
  printf "%d" $ n + slv x (concat m)

slv :: Int -> [Int] -> Int
slv x m = mNum
  where xMod = x - sum m
        mMin = minimum m
        mNum = xMod `div` mMin
