Submission #308187

---

Source Code Expand

import tempfile, os, subprocess, sys

(_, file) = tempfile.mkstemp(suffix='.ml')
f = open(file, "w")
f.write("""
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

""")

f.close()
os.system("ocamlfind ocamlopt -linkpkg -inline 20 -unsafe %s" % file)
os.system("./a.out")

Submission Info

Judge Result