summaryrefslogblamecommitdiffstats
path: root/019.pl
blob: 47fc31af67a7a457a9780ce9cc2b9716618f275a (plain) (tree)
1
2
3
4
5
6
7
8
9
10







                                                            

                                       

                 
#!/usr/bin/perl
use strict;
use warnings;
use DateTime;

my $day = DateTime->new(year => 1901, month => 1, day => 1);
my $count = 0;
while ($day->year < 2001) {
    $count++ if $day->day_of_week == 7;
    $day->add(months => 1);
}
print "$count\n";