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

topeg

2012-08-04 18:01

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Ich denk was auch Zeit kostet ist die Wandlung von String zu Zahl. Ich denke noch mal schneller dürfte das sein:

Code (perl): (dl )

1
2

if ($v ne $last || $v eq '0') { push @cache, $v eq '1' ? 1 : -1 }
elsif($v eq '1') { $cache[-1] ++ }

Das funktioniert wunderbar solange man es mit "0" und "1" zu tun hat.