Submission #1773018


Source Code Expand

(define (main args)
  (let* ((n (read))
         (m (read))
         (v (make-vector n 0)))
    (let loop ((x m))
      (if (zero? x)
          (vector-for-each print 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 0
Code Size 385 Byte
Status RE
Exec Time 22 ms
Memory 4696 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 200
Status
RE × 3
RE × 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 RE 22 ms 4696 KB
sample_02.txt RE 9 ms 3580 KB
sample_03.txt RE 9 ms 3580 KB
subtask_1_1.txt RE 9 ms 3580 KB
subtask_1_2.txt RE 9 ms 3580 KB
subtask_1_3.txt RE 9 ms 3580 KB
subtask_1_4.txt RE 9 ms 3580 KB
subtask_1_5.txt RE 9 ms 3580 KB
subtask_1_6.txt RE 9 ms 3580 KB
subtask_1_7.txt RE 9 ms 3580 KB