Calendar: Difference between revisions
Content added Content deleted
m (minor fix) |
m (→{{header|Perl 6}}: clean up unused var) |
||
Line 941:
$str ~= @week-day-names~"\n";
my $date = DateTime.new(year => $year, month => $month);
my $week-day = $date.day-of-week;
Line 953 ⟶ 952:
if $week-day == 8 {
$str ~= "\n";
$week-
}
$str ~= sprintf "%2d", $day;
|