in reply to An Useless Cipher
for $j ( 0 .. $#bits ) { $bits[$j] =~ s/1/x/; $bits[$j] =~ s/0/1/; $bits[$j] =~ s/x/0/; }
Or simply:
tr/01/10/ for @bits;
|
---|
In Section
Code Catacombs
in reply to An Useless Cipher
for $j ( 0 .. $#bits ) { $bits[$j] =~ s/1/x/; $bits[$j] =~ s/0/1/; $bits[$j] =~ s/x/0/; }
Or simply:
tr/01/10/ for @bits;
|
---|