import Data.List.Split
import Control.Monad
import Data.Ord

getGrams :: Int -> IO [Int]
getGrams times = do
	a <- forM [1..times] $ \i -> do
		c <- getLine
		let c' = read c :: Int
		return c'
	return a

main = do
	nx <- getLine
	let nx' = splitOn " " nx
	let n = read $ nx' !! 0 :: Int
	let x = read $ nx' !! 1 :: Int 
	ms <- getGrams n
	let x' = x - (sum ms)
	let rest = x' `div` (minimum ms)
	let res = n + rest
	putStrLn $ show res
