Day of the week: Difference between revisions
+Stata
(Added code for the Action! language (Optimized Systems Software, Atari 8-bit computers)) |
(+Stata) |
||
Line 3,529:
25-Dec-2118</pre>
=={{header|Stata}}==
<lang stata>
clear all
range year 2008 2121 `=2121-2008+1'
list if dow(mdy(12,25,year))==0
+------+
| year |
|------|
4. | 2011 |
9. | 2016 |
15. | 2022 |
26. | 2033 |
32. | 2039 |
|------|
37. | 2044 |
43. | 2050 |
54. | 2061 |
60. | 2067 |
65. | 2072 |
|------|
71. | 2078 |
82. | 2089 |
88. | 2095 |
94. | 2101 |
100. | 2107 |
|------|
105. | 2112 |
111. | 2118 |
+------+</lang>
=={{header|Suneido}}==
<lang Suneido>year = 2008
| |||