Anonymous user
Day of the week: Difference between revisions
→{{header|Racket}}
Line 1,956:
# or set locale first, with
Sys.setlocale(cat="LC_ALL", "en")</lang>
=={{header|Racket}}==
<lang Racket>
#lang racket
(require racket/date)
(define (xmas-on-sunday? year)
(zero? (date-week-day (seconds->date (find-seconds 0 0 12 25 12 year)))))
(for ([y (in-range 2008 2121)] #:when (xmas-on-sunday? y))
(displayln y))
</lang>
=={{header|REBOL}}==
|