Day of the week: Difference between revisions
Added Quackery.
Drkameleon (talk | contribs) (obsolete) |
(Added Quackery.) |
||
Line 3,752:
16 -> 2112
17 -> 2118</pre>
=={{header|Quackery}}==
Using Tomohiko Sakamoto's algorithm.
<lang Quackery> [ over 3 < if [ 1 - ]
dup 4 / over +
over 100 / -
swap 400 / +
swap 1 -
[ table
0 3 2 5 0 3
5 1 4 6 2 4 ]
+ + 7 mod ] is dayofweek ( day month year --> weekday )
say "The 25th of December is a Sunday in: " cr
2121 1+ 2008 - times
[ 25 12 i^ 2008 + dayofweek
0 = if [ i^ 2008 + echo sp ] ] </lang>
{{out}}
<pre>The 25th of December is a Sunday in:
2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118 </pre>
=={{header|R}}==
| |||