Long year: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: tidy up) |
|||
Line 891: | Line 891: | ||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica> |
<lang Mathematica>firstyear = 2000; |
||
firstyear = 2000; |
|||
lastyear = 2099; |
lastyear = 2099; |
||
years = Range[firstyear, lastyear]; |
years = Range[firstyear, lastyear]; |
||
Line 901: | Line 900: | ||
If[firstday[[n]] == Thursday || lastday[[n]] == Thursday, |
If[firstday[[n]] == Thursday || lastday[[n]] == Thursday, |
||
Style[years[[n]] " long year \n", Bold, Red] , |
Style[years[[n]] " long year \n", Bold, Red] , |
||
years[[n]] " short \n"], "error \n"], {n, Length[years]}] |
years[[n]] " short \n"], "error \n"], {n, Length[years]}]</lang> |
||
</lang> |
|||
{{out}} |
{{out}} |
||
<pre style="height:35ex"> |
<pre style="height:35ex">{2000 short |
||
{2000 short |
|||
, 2001 short |
, 2001 short |
||
, 2002 short |
, 2002 short |
||
Line 1,005: | Line 1,002: | ||
, 2098 short |
, 2098 short |
||
, 2099 long year |
, 2099 long year |
||
} |
}</pre> |
||
</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |