Submission #308184

---

Source Code Expand

open Format
open Scanf

let input = scanf "%d" (fun x -> x)
let itos = string_of_int
let (|>) x f = f x

let r =
  match input with
  | _ when input < 100 -> "00"
  | _ when 100 <= input && input < 1000 ->
    let x = input / 100 in
    "0" ^ (itos x)
  | _ when 1000 <= input && input < 5000 ->
    let x = input / 100 in
    itos x
  | _ when 6000 <= input && input < 30000 ->
    let x = input / 1000 in
    itos (x + 50)
  | _ when 35000 <= input && input < 70000 ->
    let x = input / 1000 in
    (x - 30) / 5 + 80
    |> itos
  | _ -> "89"

let _ = print_endline r

Submission Info

Judge Result