riddle se, Perl - rextester

Language: Layout:

use warnings;
use strict;

my @thirty = (4,6,9,11);
my @thirty_one = (1,3,5,7,8,10,12);
my $current_year = 2019;
my %count_by_number;

sub is_leap
{
	my $year = shift;
	
	if(not $year%400)
	{
		return 1;
	}
	elsif(not $year%100)
	{
		return 0;
	}
	elsif(not $year%4)
	{
		return 1;
	}
	else
	{
		return 0;
	}
}

for my $year (1 .. $current_year)
{
	my $count = 0;
	foreach my $month (@thirty)
	{
		foreach my $day (1 .. 30)
		{
			$count++ if((not $year%$month) and (not $year%$day));
		}
	}
	
	foreach my $month (@thirty_one)
	{
		foreach my $day (1 .. 31)
		{
			$count++ if((not $year%$month) and (not $year%$day));
		}
	}
	
	
	if(is_leap($year))
	{
		foreach my $day (1 .. 29)
		{
			$count++ if((not $year%2) and (not $year%$day));
		}
	
	}
	
	else
	{
		foreach my $day (1 .. 28)
		{
			$count++ if((not $year%2) and (not $year%$day));
		}
	} 
	
	push( @{$count_by_number{$count}} , $year); 
}

my $max_day = (sort {$a <=> $b} keys(%count_by_number))[-1];

print  (@{$count_by_number{$max_day}});
print " with $max_day days";

[ + ] Show input
Absolute running time: 0.14 sec, cpu time: 0.1 sec, memory peak: 3 Mb, absolute service time: 0,15 sec