RosettaCodeData/Task/Leap-year/Clojure/leap-year.clj
2023-07-01 13:44:08 -04:00

2 lines
92 B
Clojure

(defn leap-year? [y]
(and (zero? (mod y 4)) (or (pos? (mod y 100)) (zero? (mod y 400)))))