Long year: Difference between revisions
m
→{{header|Common Lisp}}
(→{{header|Scheme}}: Add implementation) |
|||
Line 579:
(or (= 4 (december-31-weekday year)) (= 3 (december-31-weekday (1- year)))))
(format t "Long years between 1800 and 2100:~
(loop for y from 1800 to 2100 if (iso-long-year-p y) collect y))</lang>
| |||