Submission #2277563
Source Code Expand
let n = read_int () let s = read_line () let rec f maxim now str = let len = String.length str in if len = 0 then maxim else if str.[0] = 'I' then f (max maxim (now + 1)) (now + 1) (String.sub str 1 (len - 1)) else f maxim (now - 1) (String.sub str 1 (len - 1)) let () = f 0 0 s |> Printf.printf "%d\n"
Submission Info
Submission Time | |
---|---|
Task | B - Increment Decrement |
User | gorimori |
Language | OCaml (4.02.3) |
Score | 200 |
Code Size | 326 Byte |
Status | AC |
Exec Time | 1 ms |
Memory | 384 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 200 / 200 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample_01.txt, sample_02.txt |
All | sample_01.txt, sample_02.txt, subtask_1_alld_01.txt, subtask_1_alldmax_01.txt, subtask_1_alli_01.txt, subtask_1_allimax_01.txt, subtask_1_max_01.txt, subtask_1_max_02.txt, subtask_1_rand_01.txt, subtask_1_rand_02.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | AC | 1 ms | 384 KB |
sample_02.txt | AC | 1 ms | 384 KB |
subtask_1_alld_01.txt | AC | 1 ms | 384 KB |
subtask_1_alldmax_01.txt | AC | 1 ms | 384 KB |
subtask_1_alli_01.txt | AC | 1 ms | 384 KB |
subtask_1_allimax_01.txt | AC | 1 ms | 384 KB |
subtask_1_max_01.txt | AC | 1 ms | 384 KB |
subtask_1_max_02.txt | AC | 1 ms | 384 KB |
subtask_1_rand_01.txt | AC | 1 ms | 384 KB |
subtask_1_rand_02.txt | AC | 1 ms | 384 KB |