Submission #1381604

---

Source Code Expand

(* i2s : int -> string *)
fun i2s i = if i < 0 then "-" ^ (Int.toString (abs i)) else Int.toString i;

(* i2s' : int -> string *)
fun i2s' i = String.map (fn #"~" => #"-" | c => c) (Int.toString i);

(* println : string -> uint *)
fun println s = print (s ^ "\n");

(* tokenize : unit -> string list *)
fun tokenize () = String.tokens Char.isSpace (valOf (TextIO.inputLine TextIO.stdIn));

fun calcDir deg =
  let
      val d = deg * 10
  in
      if       1125 <= d andalso d <  3375 then "NNE"
      else if  3375 <= d andalso d <  5625 then "NE"
      else if  5625 <= d andalso d <  7875 then "ENE"
      else if  7875 <= d andalso d < 10125 then "E"
      else if 10125 <= d andalso d < 12375 then "ESE"
      else if 12375 <= d andalso d < 14625 then "SE"
      else if 14625 <= d andalso d < 16875 then "SSE"
      else if 16875 <= d andalso d < 19125 then "S"
      else if 19125 <= d andalso d < 21375 then "SSW"
      else if 21375 <= d andalso d < 23625 then "SW"
      else if 23625 <= d andalso d < 25875 then "WSW"
      else if 25875 <= d andalso d < 28125 then "W"
      else if 28125 <= d andalso d < 30375 then "WNW"
      else if 30375 <= d andalso d < 32625 then "NW"
      else if 32625 <= d andalso d < 34875 then "NNW"
      else                                      "N"
  end;

fun calcW dis =
  let
      val dps = Real.realRound (real dis * 10.0 / 60.0 + 0.05) / 10.0
  in
      if       0.0 <= dps andalso dps <=  0.2 then "0"
      else if  0.3 <= dps andalso dps <=  1.5 then "1"
      else if  1.6 <= dps andalso dps <=  3.3 then "2"
      else if  3.4 <= dps andalso dps <=  5.4 then "3"
      else if  5.5 <= dps andalso dps <=  7.9 then "4"
      else if  8.0 <= dps andalso dps <= 10.7 then "5"
      else if 10.8 <= dps andalso dps <= 13.8 then "6"
      else if 13.9 <= dps andalso dps <= 17.1 then "7"
      else if 17.2 <= dps andalso dps <= 20.7 then "8"
      else if 20.8 <= dps andalso dps <= 24.4 then "9"
      else if 24.5 <= dps andalso dps <= 28.4 then "10"
      else if 28.5 <= dps andalso dps <= 32.6 then "11"
      else if 32.7 <= dps                     then "12"
      else                                         "-1"
  end;     

val [deg, dis] = map (valOf o Int.fromString) (tokenize ());

val _ = 
    let
        val w = calcW dis
    in
        if w = "0" then println ("C " ^ w)
        else println (calcDir deg ^ " " ^ w)
    end

Submission Info

Compile Error

Warning: Main.sml 55.6.
  Declaration is not exhaustive.
    missing pattern: (:: (_, (:: (_, (:: _))))) | (:: (_, nil)) | nil
    in: [deg, dis] = map (valOf o Int.fromString) (tokenize ())

Judge Result