Find the last Sunday of each month: Difference between revisions
m
→{{header|Perl 6}}: fixed Date routine args
(+Stata) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: fixed Date routine args) |
||
Line 2,662:
=={{header|Perl 6}}==
{{works with|rakudo|
<lang Perl6>sub MAIN ($year = Date.today.year) {
for 1..12 -> $
my $month-end = Date.new($year, $
say $month-end - $month-end.day-of-week % 7;
}
}</lang>
{{out|input=
<pre>
=={{header|Phix}}==
| |||