Calendar: Difference between revisions
m
→{{header|Raku}}: change name of $months-per-col to $months-per-row for accuracy
(Added Wren) |
m (→{{header|Raku}}: change name of $months-per-col to $months-per-row for accuracy) |
||
Line 5,926:
(formerly Perl 6)
{{works with|Rakudo|2015.12}}
<lang perl6>my $months-per-
my @week-day-names = <Mo Tu We Th Fr Sa Su>;
my @month-names = <Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec>;
Line 5,942:
@month-strs[$_] = fmt-month($year, $_).lines.Array for 1 .. 12;
loop ( my $month = 1; $month <= 12; $month += $months-per-
while @month-strs[$month] {
for ^$months-per-
next unless @month-strs[$month+$_];
$str ~= @month-strs[$month+$_].shift;
| |||