(defun is-century-year(year)

(if (= (mod year 100) 0)

t

nil))

(defun is-leap-year(year)

"leap year is century years divisible by 400,

not other century years, otherwise anything evenly

divisble by 4"

(if (is-century-year year)

(if (= 0 (mod year 400))

t

nil)

(if (= 0 (mod year 4))

t

nil)))

The Cloud Is Just Someone Else's Computer

5 hours ago

## 1 comment:

Hello. This post is likeable, and your blog is very interesting, congratulations :-). I will add in my blogroll =). If possible gives a last there on my blog, it is about the Dieta, I hope you enjoy. The address is http://dieta-brasil.blogspot.com. A hug.

Post a Comment