Last Friday of each month: Difference between revisions
m
→{{header|Mathematica}}
Drkameleon (talk | contribs) (Added Arturo implementation) |
|||
Line 2,266:
2012-12-28</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>FridaysOfYear[Y_] :=
NestWhile[(DaysPlus[#, - 1]) &, #, (DateString[#, "DayName"] != "Friday") &] & /@
| |||