(defn valid-date? [date]
  (try (let [format (java.time.format.DateTimeFormatter/ofPattern "yyyy.MM.dd")]
       (java.time.LocalDate/parse date format)
       true)
     (catch java.time.format.DateTimeParseException e
       false)))