Submission #2408714

---

Source Code Expand

(defun far-the-most-dot (list)
  (let* ((l (reverse list))
         (l-size (length list))
         (pos (position #\. l)))
    (when pos
      (- (1- l-size) pos))))

(defun far-the-most-x (list)
  (let* ((l (reverse list))
         (l-size (length list))
         (pos (position #\X l)))
    (when pos
      (- (1- l-size) pos))))

(defun calc-next-pos (list)
  (or (far-the-most-dot list)
      (far-the-most-x list)))


(defun calc-step-positions (list start-pos)
  (let* ((rest-length (- (1- (length list)) start-pos))
         (take-size (min 3 rest-length))
         (l (subseq list (1+ start-pos) (+ start-pos take-size 1)))
         (next-pos (+ (calc-next-pos l) 1 start-pos)))
    (if (< rest-length 4)
        ()
        (cons next-pos
              (calc-step-positions list next-pos)))))

(read) ; n 読み捨て
(let* ((s (concatenate 'list (string-right-trim '(#\Newline) (read-line))))
       (step-positions (calc-step-positions s 0))
       (x-num (count-if (lambda (idx) (equal (nth idx s) #\X)) step-positions)))
  (format 't "~A~%" x-num))

Submission Info

Judge Result