Submission #308186

---

Source Code Expand

open Format
open Scanf

let (|>) x f = f x

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

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
    itos (((x - 30) / 5) + 80)
  | _ -> "89"

let _ = print_endline r

Submission Info

Judge Result