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