Submission #132973

---

Source Code Expand

module Int64 = struct
  include Int64
  let (+) = Int64.add
  let (-) = Int64.sub
  let ( * ) = Int64.mul
  let ( / ) = Int64.div
end
;;

let sum x =
  Int64.(
    x * (x + 1L) / 2L
  )
;;

let f x g =
  let open Int64 in
  let rest = 99L - g in
  let x1, x2 =
    if rem x 2L = 0L then (x / 2L), (x / 2L - 1L)
    else (x - 1L) / 2L, (x - 1L) / 2L in
  if rest >= x2 then
    sum x1 + sum x2
  else if rest >= 0L then
    sum rest + sum (x - rest - 1L)
  else
    let move = neg rest in
    move * x + sum (x - 1L)
;;

let () =
  let open Int64 in
  let r, g, b = Scanf.scanf "%Ld %Ld %Ld " (fun x y z -> x, y, z) in
  let m = ref max_int in
  let rec iter g1 =
    if g1 = g then ()
    else
      let g2 = g - g1 - 1L in
      m := min !m (f r g1 + f b g2 + sum g1 + sum g2);
      iter (g1 + 1L) in
  iter 0L;
  Printf.printf "%Ld\n" !m
;;

          

Submission Info

Judge Result