Submission #3603507
Source Code Expand
(let ((a '(1 3 5 7 8 10 12)) (b '(4 6 9 11)) (c '(2)) (x (read)) (y (read))) (cond ((and (find x a) (find y a)) (princ "Yes")) ((and (find x b) (find y b)) (princ "Yes")) ((and (find x c) (find y c)) (princ "Yes")) (t (princ "No"))))
Submission Info
Submission Time | |
---|---|
Task | A - Grouping |
User | artoshimitsu |
Language | Common Lisp (SBCL 1.1.14) |
Score | 100 |
Code Size | 291 Byte |
Status | AC |
Exec Time | 86 ms |
Memory | 12132 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 100 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | 0_00.txt, 0_01.txt |
All | 0_00.txt, 0_01.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt, 1_04.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
0_00.txt | AC | 86 ms | 12132 KB |
0_01.txt | AC | 16 ms | 6496 KB |
1_00.txt | AC | 16 ms | 6500 KB |
1_01.txt | AC | 16 ms | 6496 KB |
1_02.txt | AC | 16 ms | 6504 KB |
1_03.txt | AC | 16 ms | 6500 KB |
1_04.txt | AC | 16 ms | 6500 KB |