結果

問題 No.905 Sorted?
ユーザー tailstails
提出日時 2019-10-11 22:28:09
言語 Perl
(5.16.3)
結果
AC  
実行時間 844 ms / 2,000 ms
コード長 169 Byte
コンパイル時間 20 ms
使用メモリ 31,420 KB
最終ジャッジ日時 2020-06-03 19:22:42

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
testcase_00 AC 6 ms
2,752 KB
testcase_01 AC 6 ms
2,752 KB
testcase_02 AC 6 ms
2,748 KB
testcase_03 AC 7 ms
2,752 KB
testcase_04 AC 6 ms
2,752 KB
testcase_05 AC 17 ms
3,568 KB
testcase_06 AC 12 ms
3,232 KB
testcase_07 AC 40 ms
5,220 KB
testcase_08 AC 696 ms
20,892 KB
testcase_09 AC 451 ms
16,300 KB
testcase_10 AC 760 ms
29,308 KB
testcase_11 AC 743 ms
25,468 KB
testcase_12 AC 844 ms
26,496 KB
testcase_13 AC 838 ms
31,420 KB
testcase_14 AC 752 ms
31,416 KB
testcase_15 AC 670 ms
30,828 KB
testcase_16 AC 744 ms
31,044 KB
testcase_17 AC 806 ms
31,004 KB
testcase_18 AC 730 ms
30,024 KB
testcase_19 AC 6 ms
2,744 KB
testcase_20 AC 6 ms
2,752 KB
testcase_21 AC 6 ms
2,748 KB
testcase_22 AC 6 ms
2,752 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Possible precedence problem on bitwise ^ operator at Main.pl line 13.
Possible precedence problem on bitwise ^ operator at Main.pl line 13.
Main.pl syntax OK

ソースコード

diff #
<>;
for(glob<>){
	if($i){
		$u[$i]=$_<$p?$i:$u[$i-1];
		$d[$i]=$_>$p?$i:$d[$i-1];
	}
	$p=$_;
	++$i;
}
<>;
for(<>){
	($l,$r)=glob;
	print $u[$r]>$l^1,$",$d[$r]>$l^1,$/;
}
0