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