Long year: Difference between revisions
Content deleted Content added
→{{header|Logo}}: Add implementation. |
|||
Line 1,171: | Line 1,171: | ||
=={{header|Logo}}== |
|||
{{works with|UCB Logo}} |
|||
<lang logo>to div :x :y |
|||
output int quotient :x :y |
|||
end |
|||
to dec31_weekday :year |
|||
output remainder (sum :year div :year 4 div :year -100 div :year 400) 7 |
|||
end |
|||
to iso_long_year? :year |
|||
output or 4 = dec31_weekday :year 3 = dec31_weekday difference :year 1 |
|||
end |
|||
for [y 1995 2045 1] [if iso_long_year? :y [print :y]]</lang> |
|||
{{Out}} |
|||
<pre>1998 |
|||
2004 |
|||
2009 |
|||
2015 |
|||
2020 |
|||
2026 |
|||
2032 |
|||
2037 |
|||
2043</pre> |
|||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>firstyear = 2000; |
<lang Mathematica>firstyear = 2000; |