結果

問題 No.429 CupShuffle
ユーザー tailstails
提出日時 2016-10-02 22:43:29
言語 Perl
(5.38.0)
結果
AC  
実行時間 434 ms / 2,000 ms
コード長 214 bytes
コンパイル時間 359 ms
コンパイル使用メモリ 5,460 KB
実行使用メモリ 45,756 KB
最終ジャッジ日時 2023-08-13 17:10:51
合計ジャッジ時間 2,866 ms
ジャッジサーバーID
(参考情報)
judge13 / judge12
このコードへのチャレンジ(β)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 7 ms
5,348 KB
testcase_01 AC 6 ms
5,200 KB
testcase_02 AC 6 ms
5,204 KB
testcase_03 AC 6 ms
5,088 KB
testcase_04 AC 7 ms
5,440 KB
testcase_05 AC 6 ms
5,052 KB
testcase_06 AC 7 ms
5,276 KB
testcase_07 AC 7 ms
5,328 KB
testcase_08 AC 6 ms
5,220 KB
testcase_09 AC 7 ms
5,176 KB
testcase_10 AC 48 ms
9,332 KB
testcase_11 AC 434 ms
45,584 KB
testcase_12 AC 349 ms
45,564 KB
testcase_13 AC 381 ms
45,756 KB
testcase_14 AC 344 ms
45,616 KB
testcase_15 AC 6 ms
5,264 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #

($n,$k,$x)=glob<>;
$a[$_]=<> for 1..$k;
@c=(0,glob<>);
@d=(0..$n);
for(1..$x-1){
	$a[$_]=~$";
	@d[$`,$']=@d[$',$`];
}
for(reverse$x+1..$k){
	$a[$_]=~$";
	@c[$`,$']=@c[$',$`];
}
print"@{[grep$c[$_]-$d[$_],1..$n]}";
0