Submission #3004622
Source Code Expand
Printf.printf "%d\n" @@ Scanf.scanf "%d %d" @@ fun n k -> let a = Array.init n (fun _ -> Scanf.scanf " %d" ((+) 0)) in let sa = Array.init (n+1) (fun i -> if i = 0 then 0 else a.(i-1)) in for i = 1 to n do sa.(i) <- sa.(i) + sa.(i-1) done; if sa.(n) = k then 1 else let dp = Array.make (n+1) (k+1) in dp.(0) <- 0; for x = 1 to n do for y = n downto 1 do let w = dp.(y-1) in let c = if x = 1 then 1 else 1 + sa.(x) * w / sa.(x-1) - w in if c <= a.(x-1) then dp.(y) <- min dp.(y) (w+c) done; done; Array.mapi (fun i e -> i,e) dp |> Array.fold_left (fun z (i,x) -> if x <= k then i else z) 0
Submission Info
Submission Time | |
---|---|
Task | B - 高橋君ゲーム |
User | lrmystp |
Language | OCaml (4.02.3) |
Score | 100 |
Code Size | 655 Byte |
Status | AC |
Exec Time | 104 ms |
Memory | 3200 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 100 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | s1.txt, s2.txt, s3.txt, s4.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, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 20.txt, 21.txt, 22.txt, 23.txt, 24.txt, 25.txt, 26.txt, 27.txt, 28.txt, 29.txt, 30.txt, 31.txt, 32.txt, 33.txt, 34.txt, 35.txt, 36.txt, 37.txt, 38.txt, 39.txt, 40.txt, 41.txt, 42.txt, 43.txt, 44.txt, 45.txt, 46.txt, 47.txt, 48.txt, 49.txt, 50.txt, 51.txt, 52.txt, 53.txt, 54.txt, 55.txt, 56.txt, 57.txt, 58.txt, 59.txt, 60.txt, 61.txt, 62.txt, 63.txt, 64.txt, s1.txt, s2.txt, s3.txt, s4.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
01.txt | AC | 101 ms | 1152 KB |
02.txt | AC | 101 ms | 1152 KB |
03.txt | AC | 101 ms | 1152 KB |
04.txt | AC | 101 ms | 1152 KB |
05.txt | AC | 101 ms | 1152 KB |
06.txt | AC | 101 ms | 1152 KB |
07.txt | AC | 101 ms | 3200 KB |
08.txt | AC | 101 ms | 1152 KB |
09.txt | AC | 101 ms | 1152 KB |
10.txt | AC | 101 ms | 1152 KB |
11.txt | AC | 100 ms | 1152 KB |
12.txt | AC | 101 ms | 3200 KB |
13.txt | AC | 100 ms | 1152 KB |
14.txt | AC | 80 ms | 1152 KB |
15.txt | AC | 100 ms | 1152 KB |
16.txt | AC | 81 ms | 1152 KB |
17.txt | AC | 102 ms | 1152 KB |
18.txt | AC | 102 ms | 1152 KB |
19.txt | AC | 102 ms | 1152 KB |
20.txt | AC | 101 ms | 1152 KB |
21.txt | AC | 2 ms | 1024 KB |
22.txt | AC | 2 ms | 1024 KB |
23.txt | AC | 101 ms | 1152 KB |
24.txt | AC | 101 ms | 1152 KB |
25.txt | AC | 2 ms | 1024 KB |
26.txt | AC | 2 ms | 1024 KB |
27.txt | AC | 2 ms | 1024 KB |
28.txt | AC | 2 ms | 1024 KB |
29.txt | AC | 100 ms | 1152 KB |
30.txt | AC | 99 ms | 1152 KB |
31.txt | AC | 104 ms | 1152 KB |
32.txt | AC | 86 ms | 1152 KB |
33.txt | AC | 100 ms | 1152 KB |
34.txt | AC | 101 ms | 1152 KB |
35.txt | AC | 86 ms | 1152 KB |
36.txt | AC | 100 ms | 1152 KB |
37.txt | AC | 100 ms | 1152 KB |
38.txt | AC | 93 ms | 1152 KB |
39.txt | AC | 87 ms | 1152 KB |
40.txt | AC | 101 ms | 3200 KB |
41.txt | AC | 101 ms | 1152 KB |
42.txt | AC | 101 ms | 1152 KB |
43.txt | AC | 101 ms | 1152 KB |
44.txt | AC | 82 ms | 1152 KB |
45.txt | AC | 82 ms | 1152 KB |
46.txt | AC | 88 ms | 1152 KB |
47.txt | AC | 100 ms | 1152 KB |
48.txt | AC | 101 ms | 1152 KB |
49.txt | AC | 101 ms | 1152 KB |
50.txt | AC | 101 ms | 1152 KB |
51.txt | AC | 1 ms | 384 KB |
52.txt | AC | 1 ms | 384 KB |
53.txt | AC | 1 ms | 384 KB |
54.txt | AC | 1 ms | 384 KB |
55.txt | AC | 1 ms | 384 KB |
56.txt | AC | 1 ms | 384 KB |
57.txt | AC | 1 ms | 384 KB |
58.txt | AC | 1 ms | 384 KB |
59.txt | AC | 1 ms | 384 KB |
60.txt | AC | 1 ms | 384 KB |
61.txt | AC | 1 ms | 384 KB |
62.txt | AC | 1 ms | 384 KB |
63.txt | AC | 1 ms | 384 KB |
64.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 |
s4.txt | AC | 1 ms | 384 KB |