結果

問題 No.647 明太子
ユーザー tails
提出日時 2018-02-09 22:34:43
言語 Perl
(5.40.0)
結果
AC  
実行時間 1,045 ms / 4,500 ms
コード長 271 bytes
コンパイル時間 308 ms
コンパイル使用メモリ 6,940 KB
実行使用メモリ 8,064 KB
最終ジャッジ日時 2024-06-27 02:30:56
合計ジャッジ時間 4,485 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 20
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

$n=<>;
for$i(1..$n){
	($a[$i],$b[$i])=glob<>;
}
$m=<>;
for$j(1..$m){
	($x,$y)=glob<>;
	for$i(1..$n){
		if($x<=$a[$i]&&$y>=$b[$i]){
			++$c[$j];
		}
	}
	if($d<$c[$j]){
		$d=$c[$j];
	}
}
if($d==0){
	print 0;
}else{
	for$j(1..$m){
		if($c[$j]==$d){
			print $j,$/;
		}
	}
}
0