module Main where

import           Control.Monad
import           Data.List
import           Data.Ord
import           Data.List.Split
import           Data.Array.IO
import qualified Data.Vector.Unboxed as V

main :: IO ()
main = do
  [a, x] <- map read . words <$> getLine
  as <- replicateM a readLn
  let s = sum as
  print $ length as + ((x - s) `div` (minimum as))