Long year: Difference between revisions
Content deleted Content added
→{{header|Logo}}: Add implementation. |
|||
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}}==
<lang Mathematica>firstyear = 2000;
|