Day of the week: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,920: / Line 1,920: @@
 (define (task)
-(let loop ((y 2008) (v '()))
+(let loop ((y 2121) (v '()))
-(if (> y 2121)
+(if (< y 2008)
     v
-    (loop (+ y 1)
+    (loop (- y 1)
           (if (= 7 (day-of-week y 12 25))
               (cons y v)
@@ Line 1,929: / Line 1,929: @@
 (task)
-; (2118 2112 2107 2101 2095 2089 2078 2072 2067 2061 2050 2044 2039 2033 2022 2016 2011)</lang>
+; (2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118)</lang>
 =={{header|Seed7}}==