import Control.Monad
import Data.List
import qualified Data.ByteString.Lazy.Char8 as B

main = do
  [n,x] <- fmap (map read . words) getLine
  input <- B.getContents
  let ms = map readI . B.lines $ input
  print (solve x ms)


-- for fast read
readI :: B.ByteString -> Int
readI s = case B.readInt s of Just (n,_) -> n


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