Submission #338979

---

Source Code Expand

use strict;
use warnings;
use feature qw(say);

my $n = <>;

my @str = split ' ', join '', <>;

my %uniq;
for (@str) {
    my %h; @h{ split // } = ();
    ++$uniq{$_} for keys %h;
}

for my $char (grep $uniq{$_} == @str, keys %uniq) {
    my @pos;
    for (@str) {
        my ($idx, @p) = (0);
        push @p, $idx++ while ($idx = index($_, $char, $idx)) != -1;
        push @pos, \@p;
    }
    my @a = map $pos[$_][0], 0 .. $#pos;
    while () {
        @a = sort { $a <=> $b } @a;
        if (join(',', @a) eq join ',', $a[0] .. $a[0] + $#str) {
            say 'YES';
            exit;
        }
        my $found = 0;
        for my $idx (0 .. $#pos) {
            next if ! defined $pos[$idx][0] || $pos[$idx][0] != $a[0];
            shift @{ $pos[$idx] };
            $a[0] = $pos[$idx][0];
            $found = 1 if defined $a[0];
            last;
        }
        last if not $found;
    }
}
say 'NO';

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result