Scanf.scanf "%d" (fun n ->
    let a = Array.init n (fun _ -> Scanf.scanf " %d" (fun a -> a)) in
    let b = Array.init n (fun _ -> Scanf.scanf " %d" (fun b -> b)) in
    let score = Array.make 101 0 in
    for i = 0 to n - 1 do
        score.(b.(i)) <- score.(b.(i)) + a.(i)
    done;
    print_endline @@
        if score.(0) = Array.fold_left max 0 score then "YES" else "NO"
)