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
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 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