Last Friday of each month: Difference between revisions
Content added Content deleted
| Line 678: | Line 678: | ||
Here, <code>classify</code> sorts the dates into one bin per month (but preserves the order in each bin). We then take the list inside each bin (<code>.value</code>) and find the last (<code>.reverse.first</code>) date which is a Friday. |
Here, <code>classify</code> sorts the dates into one bin per month (but preserves the order in each bin). We then take the list inside each bin (<code>.value</code>) and find the last (<code>.reverse.first</code>) date which is a Friday. |
||
Another variation where the data flow can be read left to right using feed operators: |
|||
<lang perl6>sub MAIN (Int $year = Date.today.year) { |
|||
.say for Date.new("$year-01-01") .. Date.new("$year-12-31") ==> classify *.month ==> |
|||
map *.value.reverse.first: *.day-of-week == 5 |
|||
}</lang> |
|||
=={{header|PHP}}== |
=={{header|PHP}}== |
||