Anonymous user
Last Friday of each month: Difference between revisions
→{{header|Perl 6}}: new entry
m (make it look like we always intended it to be that way) |
(→{{header|Perl 6}}: new entry) |
||
Line 479:
2012-12-28
</pre>
=={{header|Perl 6}}==
<lang perl6>sub MAIN (Int $year = Date.today.year) {
my @fri;
for Date.new("$year-01-01") .. Date.new("$year-12-31") {
@fri[.month] = $_ if .day-of-week == 5;
}
.Str.say for @fri[1..12];
}</lang>
Example:
<pre>$ ./lastfri 2038
2038-01-29
2038-02-26
2038-03-26
2038-04-30
2038-05-28
2038-06-25
2038-07-30
2038-08-27
2038-09-24
2038-10-29
2038-11-26
2038-12-31</pre>
=={{header|PHP}}==
| |||