Anonymous user
Day of the week: Difference between revisions
m
→{{header|Seed7}}
m (→{{header|R}}) |
|||
Line 1,909:
2112
2118</pre>
=={{header|Scheme}}==
<lang scheme>(define (day-of-week year month day)
(if (< month 3)
(begin (set! month (+ month 12)) (set! year (- year 1))))
(+ 1
(remainder (+ 5 day (quotient (* (+ 1 month) 13) 5)
year (quotient year 4) (* (quotient year 100) 6) (quotient year 400))
7)))
(define (task)
(let loop ((y 2008) (v '()))
(if (> y 2121)
v
(loop (+ y 1)
(if (= 7 (day-of-week y 12 25))
(cons y v)
v)))))
(task)
; (2118 2112 2107 2101 2095 2089 2078 2072 2067 2061 2050 2044 2039 2033 2022 2016 2011)</lang>
=={{header|Seed7}}==
| |||