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

提出ソース

結果

問題	No.482 あなたの名は
ユーザー	tails
提出日時	2017-02-11 01:01:02
言語	Perl (5.38.2)
結果	AC
実行時間	259 ms / 2,000 ms
コード長	130 bytes
コンパイル時間	36 ms
コンパイル使用メモリ	6,016 KB
実行使用メモリ	46,976 KB
最終ジャッジ日時	2024-06-09 11:29:32
合計ジャッジ時間	4,934 ms
ジャッジサーバーID （参考情報）	judge3 / judge4

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	7 ms 6,016 KB
testcase_01	AC	7 ms 5,888 KB
testcase_02	AC	6 ms 5,888 KB
testcase_03	AC	7 ms 5,888 KB
testcase_04	AC	8 ms 5,888 KB
testcase_05	AC	8 ms 5,888 KB
testcase_06	AC	8 ms 6,016 KB
testcase_07	AC	8 ms 6,144 KB
testcase_08	AC	8 ms 6,016 KB
testcase_09	AC	7 ms 5,888 KB
testcase_10	AC	8 ms 5,888 KB
testcase_11	AC	8 ms 6,016 KB
testcase_12	AC	8 ms 6,016 KB
testcase_13	AC	7 ms 6,016 KB
testcase_14	AC	7 ms 5,888 KB
testcase_15	AC	251 ms 46,976 KB
testcase_16	AC	252 ms 46,976 KB
testcase_17	AC	247 ms 46,848 KB
testcase_18	AC	244 ms 46,848 KB
testcase_19	AC	245 ms 46,848 KB
testcase_20	AC	242 ms 46,848 KB
testcase_21	AC	245 ms 46,848 KB
testcase_22	AC	250 ms 46,848 KB
testcase_23	AC	251 ms 46,848 KB
testcase_24	AC	246 ms 46,848 KB
testcase_25	AC	259 ms 46,848 KB
testcase_26	AC	246 ms 46,848 KB
testcase_27	AC	254 ms 46,848 KB
testcase_28	AC	248 ms 46,848 KB
testcase_29	AC	210 ms 44,032 KB
testcase_30	AC	7 ms 6,016 KB

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

コンパイルメッセージ

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

ソースコード

raw source code

($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

0