Gibt es für Zeile x einer Matrix andere Zeilen die ein Subset dieser Zeile sind? - #142074 (Allgemeines zu Perl)

clms

2010-10-20 10:30

User since
2010-08-29
373 Artikel
BenutzerIn
[default_avatar]

2010-10-19T21:47:52 topeg
Übrigens das Binärkodieren geht einfacher:

So einfach scheint es doch nicht zu sein :-(

Deine zweite Variante liefert mir für die Eingabe "10110" den Wert 369098752 statt 22.

Nachdem ich kein fertiges bin()-Pedant zu hex() gefunden habe,
hab' ich es zunächst auch kurz mit pack() versucht, aber - als die
ersten Versuche nicht fruchteten - schnell aufgegeben, da ich mit pack()
keine Erfahrungen habe und bei foreach auf sicherem Terrain bin.

Die Schleife kann man auch noch ein bischen kompakter schreiben:

Code (perl): (dl )

sub  bin2num($) {
  my $n = 0;
  ($n <<= 1) += $_ foreach split(//,shift);
  $n;
}