Submission #1752667


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桁目までを1で埋める
		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

Submission Time
Task D - IntegerotS
User uemurahajime
Language Perl (v5.18.2)
Score 500
Code Size 1430 Byte
Status AC
Exec Time 1517 ms
Memory 20352 KB

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

Set Name Sample All
Score / Max Score 0 / 0 500 / 500
Status
AC × 3
AC × 63
Set Name Test Cases
Sample s1.txt, s2.txt, s3.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 20.txt, 21.txt, 22.txt, 23.txt, 24.txt, 25.txt, 26.txt, 27.txt, 28.txt, 29.txt, 30.txt, 31.txt, 32.txt, 33.txt, 34.txt, 35.txt, 36.txt, 37.txt, 38.txt, 39.txt, 40.txt, 41.txt, 42.txt, 43.txt, 44.txt, 45.txt, 46.txt, 47.txt, 48.txt, 49.txt, 50.txt, 51.txt, 52.txt, 53.txt, 54.txt, 55.txt, 56.txt, 57.txt, 58.txt, 59.txt, 60.txt, s1.txt, s2.txt, s3.txt
Case Name Status Exec Time Memory
01.txt AC 471 ms 16256 KB
02.txt AC 704 ms 17536 KB
03.txt AC 967 ms 16512 KB
04.txt AC 780 ms 17920 KB
05.txt AC 636 ms 16640 KB
06.txt AC 644 ms 16896 KB
07.txt AC 740 ms 18176 KB
08.txt AC 690 ms 17280 KB
09.txt AC 521 ms 17792 KB
10.txt AC 824 ms 18816 KB
11.txt AC 907 ms 18688 KB
12.txt AC 895 ms 18688 KB
13.txt AC 1083 ms 18688 KB
14.txt AC 1117 ms 18560 KB
15.txt AC 821 ms 18688 KB
16.txt AC 773 ms 18560 KB
17.txt AC 1020 ms 18688 KB
18.txt AC 616 ms 18688 KB
19.txt AC 872 ms 18688 KB
20.txt AC 899 ms 18688 KB
21.txt AC 1068 ms 18560 KB
22.txt AC 859 ms 18304 KB
23.txt AC 767 ms 18304 KB
24.txt AC 633 ms 18688 KB
25.txt AC 861 ms 17792 KB
26.txt AC 981 ms 18688 KB
27.txt AC 776 ms 18176 KB
28.txt AC 825 ms 17408 KB
29.txt AC 896 ms 18688 KB
30.txt AC 1009 ms 17920 KB
31.txt AC 913 ms 17664 KB
32.txt AC 929 ms 20352 KB
33.txt AC 724 ms 18560 KB
34.txt AC 750 ms 18688 KB
35.txt AC 822 ms 18688 KB
36.txt AC 785 ms 18560 KB
37.txt AC 719 ms 16640 KB
38.txt AC 623 ms 18688 KB
39.txt AC 826 ms 18688 KB
40.txt AC 773 ms 17664 KB
41.txt AC 682 ms 18560 KB
42.txt AC 804 ms 18560 KB
43.txt AC 723 ms 18688 KB
44.txt AC 648 ms 18560 KB
45.txt AC 605 ms 18688 KB
46.txt AC 684 ms 18560 KB
47.txt AC 1517 ms 18688 KB
48.txt AC 1489 ms 18688 KB
49.txt AC 142 ms 16256 KB
50.txt AC 145 ms 16512 KB
51.txt AC 2 ms 512 KB
52.txt AC 2 ms 384 KB
53.txt AC 2 ms 384 KB
54.txt AC 2 ms 384 KB
55.txt AC 2 ms 512 KB
56.txt AC 2 ms 512 KB
57.txt AC 2 ms 512 KB
58.txt AC 2 ms 512 KB
59.txt AC 2 ms 384 KB
60.txt AC 2 ms 512 KB
s1.txt AC 2 ms 384 KB
s2.txt AC 2 ms 384 KB
s3.txt AC 2 ms 512 KB