import Data.List
import Data.Ord
import Data.Char
import Data.Ratio
import Data.Maybe

main = do
  [n,x] <- map (read::String->Int) . words <$> getLine
  ms <- map (read::String->Int) . lines <$> getContents
  print $ n + div (x - sum ms) (minimum ms)