Submission #1807023
Source Code Expand
(use srfi-13) (define (main args) (let* ([_ (read-line)] [s (read-line)]) (print (car (string-fold (lambda (c p) (let ([ap (if (char=? c #\I) (+ (cdr p) 1) (- (cdr p) 1))]) (cons (max (car p) ap) ap))) '(0 . 0) s)))) 0)
Submission Info
Submission Time | |
---|---|
Task | B - Increment Decrement |
User | ducktail |
Language | Scheme (Gauche 0.9.3.3) |
Score | 200 |
Code Size | 305 Byte |
Status | AC |
Exec Time | 12 ms |
Memory | 3448 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 | 12 ms | 3448 KB |
sample_02.txt | AC | 7 ms | 3068 KB |
subtask_1_alld_01.txt | AC | 7 ms | 3196 KB |
subtask_1_alldmax_01.txt | AC | 7 ms | 3196 KB |
subtask_1_alli_01.txt | AC | 7 ms | 3068 KB |
subtask_1_allimax_01.txt | AC | 7 ms | 3196 KB |
subtask_1_max_01.txt | AC | 7 ms | 3196 KB |
subtask_1_max_02.txt | AC | 7 ms | 3068 KB |
subtask_1_rand_01.txt | AC | 7 ms | 3068 KB |
subtask_1_rand_02.txt | AC | 7 ms | 3068 KB |