LLGolf Hole 3

doukaku.org

xyzzyでも動くよう、ごく普通に。

;xyzzy用
;(defmacro nth-value (n form)
;  `(nth ,n (multiple-value-list ,form)))

(do*((m 1 (1+ (mod m 12)))
     (y 2008 (+ y (if (= 1 m) 1 0)))
     (u 0 (encode-universal-time 0 0 0 13 m y))
     (c 0))
    ((< 2013 y) (princ c))
  (and (= (nth-value 6 (decode-universal-time u)) 4)
       (< (get-universal-time) u)
       (incf c)
       (format t "~D-~2,'0D-13~%" y m)))

(微修正)

(let((c 0)) 〜

とかしてたのをdo*に統合。
15字減って、228字くらい?