Select Code to Download

## Define a bit vector with positions 4 to 7 set to 1
my $bv1='';
...
      $pos++;
    }
}

sub sumbv
{
    return $_[0] | $_[1];
}

sub cmpbv
{
    return $_[0] & $_[1];
}

use strict;
use warnings;
...
    }
}

00011110 bv1
00111000 bv2
--------
00111110 OR
00011000 AND