challenge-163/deadmarshal/perl/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!usr/bin/env perl
use strict;
use warnings;

sub sum_bitwise_operator{
  my ($arr) = @_;
  my $sum = 0;
  for(my $i = 0; $i < @$arr; ++$i){
    for(my $j = $i+1; $j < @$arr; ++$j){
      $sum += $arr->[$i] & $arr->[$j];
    }
  }
  $sum;
}

my @n = (1,2,3);
my @n2 = (2,3,4);

print sum_bitwise_operator(\@n), "\n";
print sum_bitwise_operator(\@n2), "\n";