RosettaCodeData/Task/Leap-year/Clojure/leap-year.clj
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

2 lines
92 B
Clojure

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