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
AC × 2
AC × 7
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