Scanf.scanf "%d %d" (fun n x ->
    let m = Array.init n (fun _ -> Scanf.scanf " %d" (fun m -> m)) in
    Array.sort compare m;
    let s = Array.fold_left (+) 0 m in
    let r = x - s in
    Printf.printf "%d\n" @@ n + r / m.(0)
)