Day of the week: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,574: / Line 1,574: @@
 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118
 </pre>
+=={{header|Draco}}==
+<lang draco>proc nonrec weekday(word y, m, d) byte:
+    word c;
+    if m<3 then
+        m := m+10;
+        y := y+1
+    else
+        m := m-2
+    fi;
+    c := y/100;
+    y := y%100;
+    ((26 * m - 2)/10 + d + y + y/4 + c/4 - 2*c + 777) % 7
+corp
+proc nonrec main() void:
+    word year;
+    for year from 2008 upto 2121 do
+        if weekday(year, 12, 25)=0 then
+            writeln(year)
+        fi
+    od
+corp</lang>
+{{out}}
+<pre>2011
+</pre>
 =={{header|ECL}}==