Submission #1752665

---

Source Code Expand

my @seisu,@seisu_no_kachi;

#入力1行目読み込む
my $input=<STDIN>;
chomp ($input);
my ($n, $k)=split(/ /,$input);
#残りの行読み込む
foreach (1..$n){
  chomp ($input=<STDIN>);
  my ($a, $b)=split(/ /,$input);
  push @seisu,$a;
  push @seisu_no_kachi, $b;
}
#print "$_\n"for(@seisu);
#print $seisu[3];


#my $keta; #$kの桁数
#for(0..30){
#	if (0 >= ($k>>$_)){
#		$keta=$_;
#		last;
#	}
#}

my @bitwiseor;  
	#買った整数たちの論理和が、K以下となる。
	#その様な論理和として正解となり得る値を、@bitwiseorに用意する。
for my $i(0..30){
	if ($k & (1 << $i)){ # $kの、下から（$i+1）桁目が立っている。

		my $tmp=$k; #@bitwiseor に入れることができる値を計算します。
		$tmp= $k & ~(1<<$i);					 # 下から（$i+1）桁目を0に
		$tmp|=(1<<$_) foreach(0..($i-1));        # 下から$i桁目までを１で埋める
		push @bitwiseor, $tmp
	}
}
push @bitwiseor,$k;		#  K自信も含める
#printf("%08b\n", $_) foreach(@bitwiseor);
 

my $goukei=0;
foreach my $b(@bitwiseor)
{
	my $goukei_tmp=0;
	for my $j(0..($n-1)){
		unless(fukumarenai($b, $seisu[$j])){
			$goukei_tmp+=$seisu_no_kachi[$j];
		}
	}

	 $goukei=$goukei_tmp if ($goukei < $goukei_tmp) ; 
}


#$aに$bが含まれない場合TRUE
sub fukumarenai{
	my ($a, $b)=@_;
	return ($a^($a|$b));
}

print $goukei;

Submission Info

Compile Error

Parentheses missing around "my" list at ./Main.pl line 4.
Useless use of a variable in void context at ./Main.pl line 4.
./Main.pl syntax OK

Judge Result