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