Submission #3603727

Source Code Expand

(let ((a (read))
      (b (+ 2(read))))
  (format t "~A~%" (concatenate 'string (loop :repeat b collect #\#)))
  (loop :repeat a do(format t "#~A#~%" (read-line)))
  (format t "~A~%" (concatenate 'string (loop :repeat b collect #\#))))

Submission Info

Submission Time
Task B - Picture Frame
User artoshimitsu
Language Common Lisp (SBCL 1.1.14)
Score 200
Code Size 239 Byte
Status AC
Exec Time 218 ms
Memory 16096 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 2
AC × 10
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, 1_05.txt, 1_06.txt, 1_07.txt
Case Name Status Exec Time Memory
0_00.txt AC 218 ms 16096 KB
0_01.txt AC 26 ms 6500 KB
1_00.txt AC 26 ms 6504 KB
1_01.txt AC 26 ms 6500 KB
1_02.txt AC 26 ms 6500 KB
1_03.txt AC 27 ms 6496 KB
1_04.txt AC 26 ms 6500 KB
1_05.txt AC 26 ms 6500 KB
1_06.txt AC 27 ms 6500 KB
1_07.txt AC 26 ms 6496 KB