Submission #7890

---

Source Code Expand

my $q = <STDIN>;
chomp $q;
my @ds = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

my ($y, $m, $d) = split qr{/0?}, $q;
while (1) {
    if (($y / $m / $d) == int($y / $m / $d)) {
        last;
    }
    $d++;
    print $qqq;
    my $cd = $ds[$m-1];
    $cd++ if ($m == 2 && ly($y) == 1);
    if ($d > $cd) {
        $d = 1;
        $m++;
        if ($m == 13) {
            $y++;
            $m = 1;
        }
    }
}
printf "$y/%02d/%02d\n", $m, $d;

sub ly {
    my $q = shift;
    my $ret;
    if ($q % 4 == 0) {
        $ret = 1;
        if ($q % 100 == 0) {
            $ret = 0;
            if ($q % 400 == 0) {
                $ret = 1;
            }
        }
    }
    else {
        $ret = 0;
    }
    return $ret;
}

Submission Info

Compile Error

Name "main::qqq" used only once: possible typo at ./Main.pl line 11.
./Main.pl syntax OK

Judge Result