RosettaCodeData/Task/Leap-year/Clojure/leap-year.clj

3 lines
92 B
Clojure
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(defn leap-year? [y]
(and (zero? (mod y 4)) (or (pos? (mod y 100)) (zero? (mod y 400)))))