Anonymous user
Last Friday of each month: Difference between revisions
→{{header|Mathematica}}
m (→{{header|REXX}}: removed some blank lines, changed box gylphs. -- ~~~~) |
|||
Line 425:
=={{header|Mathematica}}==
<lang Mathematica>Needs["Calendar`"]
FridaysOfTheYear[Y_] := Cases[Map[{#,DayOfWeek[#]}&,DaysPlus[{Y,1,2}, #]&/@Range[365],{1}],
Last[SortBy[Cases[FridaysOfTheYear[2011], {_,#,_}], #[[3]] &]]& /@ Range[12] // Column</lang>
Output:
|