雑な西暦->和暦変換関数

西暦->和暦.clj

(defn- 西暦->和暦 [西暦]
  (let [year (read-string 西暦)]
    (cond
      ;; 平成
      (<= 0 (- year 1988))
      {:和暦 "平成"
       :年 (- year 1988)}
      ;; 昭和
      (<= 0 (- year 1925))
      {:和暦 "昭和"
       :年 (- year 1925)}
      ;; 大正
      (<= 0 (- year 1911))
      {:和暦 "大正"
       :年 (- year 1911)}
      :else
      {:和暦 "不明"
       :年 year})))