Submission #1306611

---

Source Code Expand

let () =
    let (n, t, e) = Scanf.scanf "%d %d %d\n" (fun n t e -> (n, t, e)) in
    let mi = t - e and ma = t + e in
    let rec sc j = 
        if j >= n then -1
        else
            let x = Scanf.scanf "%d " (fun x -> x) in
            let rec func i =
                if i * x > ma then 0
                else if i * x >= mi then j
                else func (i + 1)
            in 
            if (func 1) > 0 then j else sc (j + 1)
    in
    sc 1 |> Printf.printf "%d\n"
        
        

Submission Info

Judge Result