{-# OPTIONS_GHC -O #-}

import Data.List
import Control.Monad

main=do
    [n,x]<-map read.words<$>getLine::IO[Int]
    ms<-replicateM n readLn :: IO[Int]

    print $ n + ((x - (sum ms)) `div` (minimum ms)) 