#234832 (Perl) No.647 明太子 - yukicoder

提出ソース

結果

問題	No.647 明太子
ユーザー	%20
提出日時	2018-02-09 22:35:38
言語	Perl (5.40.0)
結果	AC
実行時間	4,230 ms / 4,500 ms
コード長	146 bytes
コンパイル時間	510 ms
コンパイル使用メモリ	5,888 KB
実行使用メモリ	9,728 KB
最終ジャッジ日時	2024-12-26 07:47:22
合計ジャッジ時間	13,858 ms
ジャッジサーバーID （参考情報）	judge5 / judge4

このコードへのチャレンジ
（要ログイン）

ファイルパターン	結果
sample	AC * 4
other	AC * 20

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

@AB=map[glob<>],1..<>;
for$i(1..<>){
	<>=~$";
	$_[$i]+=$`<=@$_[0]&&$'>=@$_[1]for@AB;
}
($m)=sort{$b-$a}@_;
$,=$/;
print$m?grep$_[$_]==$m,1..$#_:0

0