Über viele(!) Boolesche Werte iterieren: Array oder Bit::Vector oder was? (gelöst) - #160619 (Allgemeines zu Perl)

topeg

2012-08-04 15:34

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Ich denke so sollte der Code aussehen.

Code (perl): (dl )

    # Sparen wir uns die Strukturdaten des Arrays und von 999.999 Skalaren
    # Vorschlag von topeg++, angeglichen. $bit_data-Initialisierung oben.
    strng => sub {
                 my ($last,@cache)=(0);
                 for ( my $i = $start; $i <= $end; $i++ ) {
                     my $v = substr($str_data,$i,1);
                     if ($v xor $last // !$v) { push @cache, $v ? 1 : -1 }
                     else { $cache[-1] += $v } 
                     $last = $v;
                 }
             },

Da war ein wenig was durcheinander geraten :-)

Edit: $last muss vordefiniert sein sonst wird xor mit undef gemacht -> resultiert in einer Warnung.
Last edited: 2012-08-04 15:38:03 +0200 (CEST)