Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 16 lines (14 sloc) 0.344 kb
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Date::Manip::Date;
my $days = 0;
foreach my $year ( 1901 .. 2000 ) {
foreach my $month ( 1 .. 12 ) {
my $date = new Date::Manip::Date;
$date->parse_date( sprintf( "%d-%02d-01", $year, $month ) );
$days++ if $date->printf('%w') eq '7';
}
}
say $days;
Jump to Line
Something went wrong with that request. Please try again.