Fix quadricentennial leap years in yawn

Every quadcentury, there is a leap year. That century has 25 leap years
in it, rather than the usual 24.

Fixes #87.
This commit is contained in:
Steven Dee 2013-11-24 18:18:52 +00:00
parent be2d8ec537
commit 268c8294ad

View File

@ -1364,7 +1364,7 @@
?. =(0 (mod yer 100))
$(yer (sub yer 4), day (add day 1.461))
?. =(0 (mod yer 400))
$(yer (sub yer 100), day (add day 36.524))
$(yer (sub yer 100), day (add day 36.525))
(add day (mul (div yer 400) (add 1 (mul 4 36.524))))
::
++ yelp