Submission #1794697

Source Code Expand

(let ((s (read-line)))
  (loop for i from 0 below (length s) by 2 do
        (princ (char s i)))
  (terpri))

Submission Info

Submission Time
Task B - OddString
User tamamu
Language Common Lisp (SBCL 1.1.14)
Score 200
Code Size 113 Byte
Status AC
Exec Time 33 ms
Memory 6376 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 4
AC × 8
Set Name Test Cases
Sample 0_000.txt, 0_001.txt, 0_002.txt, 0_003.txt
All 0_000.txt, 0_001.txt, 0_002.txt, 0_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt
Case Name Status Exec Time Memory
0_000.txt AC 19 ms 3940 KB
0_001.txt AC 10 ms 3432 KB
0_002.txt AC 10 ms 3432 KB
0_003.txt AC 11 ms 3424 KB
1_004.txt AC 10 ms 3428 KB
1_005.txt AC 11 ms 3432 KB
1_006.txt AC 33 ms 6376 KB
1_007.txt AC 33 ms 6368 KB