RosettaCodeData/Task/Leap-year/Clojure/leap-year-1.clj
2024-04-19 16:56:29 -07:00

4 lines
111 B
Clojure

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