Submission #3004576

Source Code Expand

let goal = 2000000000000
let _ = Printf.printf "%d\n" @@ Scanf.scanf "%d %d" @@ fun a k ->
  let rec f n t = if goal <= t then n else f (n+1) (t + 1 + k * t) in
  if k = 0 then goal-a else f 0 a

Submission Info

Submission Time
Task A - 2兆円
User lrmystp
Language OCaml (4.02.3)
Score 100
Code Size 197 Byte
Status AC
Exec Time 1 ms
Memory 384 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 16
Set Name Test Cases
Sample s1.txt, s2.txt, s3.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 12.txt, 13.txt, s1.txt, s2.txt, s3.txt
Case Name Status Exec Time Memory
01.txt AC 1 ms 384 KB
02.txt AC 1 ms 384 KB
03.txt AC 1 ms 384 KB
04.txt AC 1 ms 384 KB
05.txt AC 1 ms 384 KB
06.txt AC 1 ms 384 KB
07.txt AC 1 ms 384 KB
08.txt AC 1 ms 384 KB
09.txt AC 1 ms 384 KB
10.txt AC 1 ms 384 KB
11.txt AC 1 ms 384 KB
12.txt AC 1 ms 384 KB
13.txt AC 1 ms 384 KB
s1.txt AC 1 ms 384 KB
s2.txt AC 1 ms 384 KB
s3.txt AC 1 ms 384 KB