Submission #308160

---

Source Code Expand

import tempfile, os, subprocess, sys
 
(_, file) = tempfile.mkstemp(suffix='.ml')
f = open(file, "w")
f.write("""
open Format
open Scanf
 
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 < 700000 ->
    let x = input / 1000 in
    (x - 30) / 5 + 80
    |> itos
  | _ -> "89"
 
let _ = print_endline r
""")
 
f.close()
os.system("ocamlfind ocamlopt -linkpkg -inline 20 -unsafe %s" % file)
os.system("./a.out")

Submission Info

Judge Result