Re: Longest possible run of a single character

[choroba]

TIMTOWTDI. You can also get the positions of the "borders", i.e. places where the character sequences change:

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $s = 'ABDBACCBBBCBDDBCDCBCCDBABCBABBBBBADACDABAC';
my $p = 0;
my $max = 0;

while ($s =~ /(?<=(.))(?!\1)/g) {
    my $l = pos($s) - $p;
    $max = $l if $l > $max;
    $p = pos $s;
}
say $max;

[Anonymous Monk]

EXTREME TIMTOWTDI :)

#!/usr/bin/perl -l

# http://perlmonks.org/?node_id=551038

use strict;
use warnings;

$_ = 'ABDBACCBBBCBDDBCDCBCCDBABCBABBBBBADACDABACC';

print "longest run: ", length eval "'".s/(.)\K\B(?!\1)/'|'/gr."'";

[Anonymous Monk]

EXTREME TIMTOWTDI the other way around :)

#!/usr/bin/perl -l

# http://perlmonks.org/?node_id=551038

use strict;
use warnings;

$_ = 'ABDBACCBBBCBDDBCDCBCCDBABCBABBBBBADACDABACC';

print "longest run: ", length eval "'".s/(.)\1*\K/'|'/gr."'";