Submission #109237

---

Source Code Expand

let direction_of_angle deg =
  try
    Array.get [| "N"; "NNE"; "NE"; "ENE"; "E"; "ESE"; "SE"; "SSE";
    "S"; "SSW"; "SW"; "WSW"; "W"; "WNW"; "NW"; "NNW"|] ((deg + 1125) / 2250)
  with
  | Invalid_argument _ -> "N"

let strength_of_velocity dis =
  let rec loop n = function
    | min_dis :: max_dis :: rest ->
        if min_dis <= dis && dis < max_dis then n
        else loop (n + 1) (max_dis :: rest)
    | _ -> 0 in (* エラーだけどoptionにするのめんどい *)
  loop 0 [0; 3; 16; 34; 55; 80; 108; 139; 172; 208; 245; 285; 327; max_int]

let () =
  Scanf.scanf "%d %d\n" (fun deg dis ->
    let strength = (strength_of_velocity ((dis + 3) / 6)) in
    Printf.printf "%s %d\n"
      (if strength = 0 then "C" else direction_of_angle (deg * 10))
      strength)

Submission Info

Judge Result