Help for this page

Select Code to Download


  1. or download this
          my $copy1b = '0' . $copy1;
      my $copy2b = $copy2 . $_;
      
      $n = ($copy1b | $copy2b);
  2. or download this
      DB<38> say (0 . "$_" | 1 . "1") for qw/0 2 4 6 8/ 
11
...
15
15
11
  3. or download this
      DB<39> use feature 'bitwise'; say (0 . "$_" |. 1 . "1") for qw/0 2 4
+ 6 8/ 
11
...
15
17
19