#mitori_clj Project Euler Problem 19

problem_19.clj

(ns tnoda.projecteuler.problem-19
  (:import (org.joda.time DateTime)     ; [joda-time/joda-time "2.1"]
           (org.joda.time.chrono GregorianChronology)))

(defn- a-month-later
  [^DateTime dt]
  (.plusMonths dt 1))

(defn- sunday?
  [^DateTime dt]
  (= 7 (.getDayOfWeek dt)))

(defn- twentieth-century?
  [^DateTime dt]
  (= 20 (.getCenturyOfEra dt)))

(defn solver
  []
  (->> (DateTime. 1901 1 1 0 0 (GregorianChronology/getInstance))
       (iterate a-month-later)
       (filter sunday?)
       (take-while twentieth-century?)
       count))

Joda Time、いいですね。そういえば最近日付関係の演算って業務でやってないな...。
これくらいシンプルだとあえて Clojure の wrapper を作るまでもないのでしょうが、自分は filter とか take-while とかの述語にカッコをなるべく付けないのが好きなので、tnoda さんのように sunday? とか twentieth-century? は多分自分も同じように作ってしまうのでしょうね。