Submission #8967

---

Source Code Expand

my $n = <STDIN>;
chomp $n;
my $command = <STDIN>;
chomp $command;

if (length($command) == 1) {
    print "1\n";
    exit;
}

my @as = (r2($command, 0, 0), r2($command, 1, 0), r2($command, 0, 1), r2($command, 1, 1));
print +(sort @as)[0], "\n";

sub r2($$$) {
    return length r(r($_[0],$_[1]),$_[2]);
}
sub r() {
    my $s = shift;
    my $i = shift;
    my %d;
    for (my $i = 0; $i < length($s) - 1; $i++) {
        my $sc = substr $s, $i, 2;
        $d{$sc}++;
    }
    my @ks = sort {$d{$b} <=> $d{$a}} grep {$_ !~ /_/} keys %d;
    if (@ks == 0) { return $s; }
    if (!$ks[$i]) { $i = 0 }
    $s =~ s/$ks[$i]/_/g;
    return $s;
}

Submission Info

Compile Error

main::r2() called too early to check prototype at ./Main.pl line 11.
main::r2() called too early to check prototype at ./Main.pl line 11.
main::r2() called too early to check prototype at ./Main.pl line 11.
main::r2() called too early to check prototype at ./Main.pl line 11.
./Main.pl syntax OK

Judge Result