Submission #22914132

Source Code Expand

(let* ((h (read))
    (w (read))
    (s (make-array (list (+ h 2) (+ w 2)) :initial-element #\.))
    (ans "Yes"))
    (loop for i below h do
        (let ((a (read-line)))
            (loop for j below w do
                (setf (aref s (+ i 1) (+ j 1)) (char a j)))))
    (loop for i from 1 below h do
        (loop for j from 1 below w do
            (if (char= (aref s i j) #\#)
                (if (and (char= (aref s (- i 1) j) #\.)
                        (char= (aref s (+ i 1) j) #\.)
                        (char= (aref s i (- j 1)) #\.)
                        (char= (aref s i (+ j 1)) #\.))
                    (setq ans "No")))))
    (format t "~A~%" ans))

Submission Info

Submission Time
Task C - Grid Repainting 2
User zemu
Language Common Lisp (SBCL 2.0.3)
Score 300
Code Size 687 Byte
Status AC
Exec Time 18 ms
Memory 23760 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 3
AC × 13
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All in01.txt, in02.txt, in03.txt, in04.txt, in05.txt, in06.txt, in07.txt, in08.txt, in09.txt, in10.txt, sample_01.txt, sample_02.txt, sample_03.txt
Case Name Status Exec Time Memory
in01.txt AC 10 ms 23560 KiB
in02.txt AC 10 ms 23676 KiB
in03.txt AC 12 ms 23760 KiB
in04.txt AC 18 ms 23672 KiB
in05.txt AC 10 ms 23680 KiB
in06.txt AC 14 ms 23684 KiB
in07.txt AC 12 ms 23640 KiB
in08.txt AC 13 ms 23696 KiB
in09.txt AC 10 ms 23616 KiB
in10.txt AC 11 ms 23632 KiB
sample_01.txt AC 12 ms 23720 KiB
sample_02.txt AC 16 ms 23500 KiB
sample_03.txt AC 13 ms 23512 KiB