6 lines
119 B
Hy
6 lines
119 B
Hy
(defn leap? [y]
|
|
(and
|
|
(= (% y 4) 0)
|
|
(or
|
|
(!= (% y 100) 0)
|
|
(= (% y 400) 0))))
|