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
AC × 2
AC × 10
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