output sequense of palindrome date-time

palindrome-date-time.clj

(comment
 this code uses http://clojars.org/clj-time.)

(ns palindrome-date-time.core
  (:require [clj-time.core :as t])
  (:require [clj-time.format :as f]))

(def custom-formatter (f/formatter "yyyyMMdd"))

(defn date-seq [d]
  (lazy-seq
   (cons (f/unparse custom-formatter d)
	 (date-seq (t/plus d (t/days 1))))))

(for [d (date-seq (t/date-time 1 1 1))
      :while (= (count d) 8)
      :when (= d (apply str (reverse d)))]
  d)