Submission #107939

---

Source Code Expand

let (|>) x f = f x ;;
let (@@) f x = f x ;;

let ident x = x ;;

let char_to_int x = int_of_char x - int_of_char '0' ;;
let int_to_char x = char_of_int (x + int_of_char '0') ;;

module List = struct
  include ListLabels ;;

  let rec iteri i f = function
    | [] -> ()
    | a::l -> f i a; iteri (i + 1) f l

  let iteri ~f l = iteri 0 f l
end
;;

module Array = struct
  include ArrayLabels ;;

  let reduce ~f xs =
    let acc = ref xs.(0) in
    for i = 1 to length xs - 1 do
      acc := f !acc xs.(i)
    done;
    !acc
  ;;
end
;;

module String = struct
  include StringLabels ;;

  let map_to_list ~f ss =
    let res = ref [] in
    iter ss ~f:(fun c -> res := f c :: !res);
    List.rev !res
  ;;

  let of_char_list ss =
    let res = String.create @@ List.length ss in
    List.iteri ss ~f:(fun i c -> res.[i] <- c);
    res
  ;;

  let iteri ~f a =
    for i = 0 to length a - 1 do f i (unsafe_get a i) done
  ;;
end
;;

module Float = struct
  let (+) = (+.)
  let (-) = (-.)
  let ( * ) = ( *. )
  let (/) = (/.)
end
;;

module Int64 = struct
  include Int64
  let (+) = add
  let (-) = sub
  let ( * ) = mul
  let (/) = div
end
;;

let fold_for ?(skip=1) min max ~init ~f =
  let acc = ref init in
  let cur = ref min in
  while !cur < max do
    acc := f !acc !cur;
    cur := !cur + skip;
  done;
  !acc
;;

let iter_for ?(skip=1) min max ~f =
  let cur = ref min in
  while !cur < max do
    f !cur;
    cur := !cur + skip;
  done
;;

let deg f =
  if 1125 <= f && f < 3375 then "NNE"
  else if 3375 <= f && f < 5625 then "NE"
  else if 5625 <= f && f < 7875 then "ENE"
  else if 7875 <= f && f < 10125 then "E"
  else if 10125 <= f && f < 12375 then "ESE"
  else if 12375 <= f && f < 14625 then "SE"
  else if 14625 <= f && f < 16875 then "SSE"
  else if 16875 <= f && f < 19125 then "S"
  else if 19125 <= f && f < 21375 then "SSW"
  else if 21375 <= f && f < 23625 then "SW"
  else if 23625 <= f && f < 25875 then "WSW"
  else if 25875 <= f && f < 28125 then "W"
  else if 28125 <= f && f < 30375 then "WNW"
  else if 30375 <= f && f < 32625 then "NW"
  else if 32625 <= f && f < 34875 then "NNW"
  else "N"
;;

let eps = 10e-4 ;;

let power dis =
  let d = float_of_int dis /. 60. in
  let d = float_of_int (int_of_float ((d +. 0.05 +. eps) *. 10.)) /. 10. in
  let (<=) x y = (y -. x) > -.eps in
  if d <= 0.2 then 0
  else if 0.3 <= d && d <= 1.5 then 1
  else if 1.6 <= d && d <= 3.3 then 2
  else if 3.4 <= d && d <= 5.4 then 3
  else if 5.5 <= d && d <= 7.9 then 4
  else if 8.0 <= d && d <= 10.7 then 5
  else if 10.8 <= d && d <= 13.8 then 6
  else if 13.9 <= d && d <= 17.1 then 7
  else if 17.2 <= d && d <= 20.7 then 8
  else if 20.8 <= d && d <= 24.4 then 9
  else if 24.5 <= d && d <= 28.4 then 10
  else if 28.5 <= d && d <= 32.6 then 11
  else 12
;;

let () =
  let d, w = Scanf.scanf "%d %d " (fun x y -> x, y) in
  let p = power w in
  if p = 0 then print_endline "C 0"
  else Printf.printf "%s %d\n" (deg (d * 10)) p
;;

Submission Info

Judge Result