Submission #176247

---

Source Code Expand

let arr = [|
  "N";
  "NNE";
  "NE";
  "ENE";
  "E";
  "ESE";
  "SE";
  "SSE";
  "S";
  "SSW";
  "SW";
  "WSW";
  "W";
  "WNW";
  "NW";
  "NNW";|]
;;

let solve_d d =
  let i = ((d * 10 + 1125) mod 36000) / 2250 in
  Printf.eprintf "d * 10 = %d\n" (d * 10);
  Printf.eprintf "d * 10 + 1125 = %d\n" (d * 10 + 1125);
  Printf.eprintf "(d * 10 + 1125) mod 36000 = %d\n" ((d * 10 + 1125) mod 36000);
  Printf.eprintf "((d * 10 + 1125) mod 36000) / 2250 = %d\n" 
    (((d * 10 + 1125) mod 36000) / 2250);
  Printf.eprintf "%d %d\n" i d;
  arr.(i)
;;  

let solve_w w =
  let w = floor ((float_of_int w /. 60.) *. 10. +. 0.5) /. 10. in
  if w <= 0.2 then 0
  else if w <= 1.5 then 1
  else if w <= 3.3 then 2
  else if w <= 5.4 then 3
  else if w <= 7.9 then 4
  else if w <= 10.7 then 5
  else if w <= 13.8 then 6
  else if w <= 17.1 then 7
  else if w <= 20.7 then 8
  else if w <= 24.4 then 9
  else if w <= 28.4 then 10
  else if w <= 32.6 then 11
  else 12
;;
  
let () =
  Scanf.scanf "%d %d " (fun d w ->
    if solve_w w = 0 then print_endline "C 0"
    else Printf.printf "%s %d\n" (solve_d d) (solve_w w))
;;

Submission Info

Judge Result