Last Friday of each month: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: new entry) |
m (→{{header|Perl 6}}: remove final $_) |
||
| Line 483: | Line 483: | ||
my @fri; |
my @fri; |
||
for Date.new("$year-01-01") .. Date.new("$year-12-31") { |
for Date.new("$year-01-01") .. Date.new("$year-12-31") { |
||
@fri[.month] = |
@fri[.month] = .Str if .day-of-week == 5; |
||
} |
} |
||
.say for @fri[1..12]; |
|||
}</lang> |
}</lang> |
||