Submission #5375264

Source Code Expand

open Printf open Scanf
open Array

let () = scanf " %d %d %d %d" @@ fun r g b n ->
  let res = ref 0 in
  for i=0 to n/r do
    for j=0 to n/g do
      let k = n - i*r - j*g in
      if 0<=k && k mod b = 0 then (
        (* printf "%d %d %d\n"
          i j (k/b); *)
        incr res
      )
    done;
  done;
  print_int @@ !res

Submission Info

Submission Time
Task B - RGB Boxes
User sk0
Language OCaml (4.02.3)
Score 200
Code Size 349 Byte
Status AC
Exec Time 75 ms
Memory 384 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 2
AC × 11
Set Name Test Cases
Sample sample_01.txt, sample_02.txt
All rand_01.txt, rand_02.txt, rand_03.txt, rand_04.txt, rand_05.txt, rand_06.txt, rand_07.txt, rand_08.txt, rand_09.txt, sample_01.txt, sample_02.txt
Case Name Status Exec Time Memory
rand_01.txt AC 1 ms 384 KiB
rand_02.txt AC 1 ms 384 KiB
rand_03.txt AC 1 ms 384 KiB
rand_04.txt AC 1 ms 384 KiB
rand_05.txt AC 1 ms 384 KiB
rand_06.txt AC 52 ms 384 KiB
rand_07.txt AC 1 ms 384 KiB
rand_08.txt AC 75 ms 384 KiB
rand_09.txt AC 1 ms 384 KiB
sample_01.txt AC 1 ms 384 KiB
sample_02.txt AC 6 ms 384 KiB