13 my $ones = grep { substr ($_, $pos, 1) eq '1' } @n;
15 @n = grep { substr ($_, $pos, 1) eq '1' } @n;
17 @n = grep { substr ($_, $pos, 1) eq '0' } @n;
21 my $ox = oct "0b".$n[0];
26 my $ones = grep { substr ($_, $pos, 1) eq '0' } @n;
28 @n = grep { substr ($_, $pos, 1) eq '1' } @n;
30 @n = grep { substr ($_, $pos, 1) eq '0' } @n;
34 my $co = oct "0b".$n[0];