AtCoder Beginner Contest 061

Submission #1283256

Source codeソースコード

(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

Task問題 B - Counting Roads
User nameユーザ名 noorbeh
Created time投稿日時
Language言語 Common Lisp (SBCL 1.1.14)
Status状態 AC
Score得点 200
Source lengthソースコード長 350 Byte
File nameファイル名
Exec time実行時間 162 ms
Memory usageメモリ使用量 16992 KB

Test case

Set

Set name Score得点 / Max score Cases
Sample - sample_01.txt,sample_02.txt,sample_03.txt
All 200 / 200 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
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