Submission #1283256

Source Code Expand

(defun solve-b ()
    (let* ((n (read))
	   (m (read))
	   (vec (make-array n :element-type 'fixnum :initial-element 0)))
      (dotimes (x m)
	(let ((ai (read))
	      (bi (read)))
	  (incf (elt vec (1- ai)))
	  (incf (elt vec (1- bi)))))
      (loop for x across vec do
	   (format t "~a~%" x))))

(defun main ()
  (solve-b))

(main)

Submission Info

Submission Time
Task B - Counting Roads
User noorbeh
Language Common Lisp (SBCL 1.1.14)
Score 200
Code Size 350 Byte
Status AC
Exec Time 162 ms
Memory 16992 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 162 ms 16992 KB
sample_02.txt AC 24 ms 6500 KB
sample_03.txt AC 24 ms 6500 KB
subtask_1_1.txt AC 24 ms 6504 KB
subtask_1_2.txt AC 24 ms 6504 KB
subtask_1_3.txt AC 24 ms 6496 KB
subtask_1_4.txt AC 24 ms 6496 KB
subtask_1_5.txt AC 24 ms 6500 KB
subtask_1_6.txt AC 24 ms 6500 KB
subtask_1_7.txt AC 24 ms 6500 KB