Submission #1773039

Source Code Expand

(define (main args)
  (let* ((n (read))
         (m (read))
         (v (make-vector n 0)))
    (let loop ((x m))
      (if (zero? x)
          (for-each print (vector->list v))
          (begin
            (let ((a (read))
                  (b (read)))
              (inc! (vector-ref v (- a 1)))
              (inc! (vector-ref v (- b 1))))
            (loop (- x 1))))))
  0)

Submission Info

Submission Time
Task B - Counting Roads
User ducktail
Language Scheme (Gauche 0.9.3.3)
Score 200
Code Size 393 Byte
Status AC
Exec Time 10 ms
Memory 3580 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 3
AC × 10
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All sample_01.txt, sample_02.txt, sample_03.txt, subtask_1_1.txt, subtask_1_2.txt, subtask_1_3.txt, subtask_1_4.txt, subtask_1_5.txt, subtask_1_6.txt, subtask_1_7.txt
Case Name Status Exec Time Memory
sample_01.txt AC 10 ms 3580 KB
sample_02.txt AC 10 ms 3580 KB
sample_03.txt AC 10 ms 3580 KB
subtask_1_1.txt AC 10 ms 3580 KB
subtask_1_2.txt AC 10 ms 3580 KB
subtask_1_3.txt AC 10 ms 3580 KB
subtask_1_4.txt AC 10 ms 3580 KB
subtask_1_5.txt AC 10 ms 3580 KB
subtask_1_6.txt AC 10 ms 3580 KB
subtask_1_7.txt AC 10 ms 3580 KB