import Control.Monad

main::IO()
main=do
  nxc<-getLine
  let n:x:[] = map read (words nxc) ::[Int]
  ls<-forM [1..n] (\_->getLine)
  let dat = map read ls ::[Int]
  print ((div (x - (sum dat)) (minimum dat)) +n) 