#149491 (Perl) No.482 あなたの名は

• 問題: No.482 あなたの名は
• ユーザー: tails
• 提出日時: 2017-02-11 01:01:02
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 266 ms / 2,000 ms
• コード長: 130 bytes
• コンパイル時間: 320 ms
• コンパイル使用メモリ: 5,296 KB
• 実行使用メモリ: 43,216 KB
• 最終ジャッジ日時: 2023-08-28 16:18:01
• 合計ジャッジ時間: 5,619 ms
• ジャッジサーバーID （参考情報）: judge12 / judge15

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	5 ms; 5,296 KB
testcase_01	AC	6 ms; 5,224 KB
testcase_02	AC	5 ms; 5,292 KB
testcase_03	AC	6 ms; 5,128 KB
testcase_04	AC	6 ms; 5,200 KB
testcase_05	AC	6 ms; 5,204 KB
testcase_06	AC	6 ms; 5,152 KB
testcase_07	AC	7 ms; 5,480 KB
testcase_08	AC	7 ms; 5,236 KB
testcase_09	AC	6 ms; 5,204 KB
testcase_10	AC	7 ms; 5,240 KB
testcase_11	AC	6 ms; 5,312 KB
testcase_12	AC	7 ms; 5,236 KB
testcase_13	AC	6 ms; 5,212 KB
testcase_14	AC	7 ms; 5,228 KB
testcase_15	AC	256 ms; 42,992 KB
testcase_16	AC	258 ms; 43,136 KB
testcase_17	AC	256 ms; 43,116 KB
testcase_18	AC	256 ms; 43,140 KB
testcase_19	AC	257 ms; 43,148 KB
testcase_20	AC	262 ms; 43,196 KB
testcase_21	AC	254 ms; 42,900 KB
testcase_22	AC	254 ms; 43,032 KB
testcase_23	AC	258 ms; 43,216 KB
testcase_24	AC	261 ms; 43,020 KB
testcase_25	AC	261 ms; 43,172 KB
testcase_26	AC	262 ms; 42,940 KB
testcase_27	AC	262 ms; 43,168 KB
testcase_28	AC	266 ms; 43,048 KB
testcase_29	AC	210 ms; 40,096 KB
testcase_30	AC	6 ms; 5,332 KB

コンパイルメッセージ

Possible precedence problem on bitwise & operator at Main.pl line 7.
Main.pl syntax OK

ソースコード

($n,$k)=glob<>;
@d=(0,<>=~/\d+/g);
map{
	$c--if$d[$_];
	($d[$_],$_)=(0,$d[$_]),$c++while$d[$_];
}1..$n;
print$k>=$c&$k+$c+1?YES:NO