結果

問題 No.905 Sorted?
ユーザー tails
提出日時 2019-10-11 22:28:09
言語 Perl
(5.16.3)
結果
AC  
実行時間 708 ms
コード長 169 Byte
コンパイル時間 460 ms
使用メモリ 32,980 KB
最終ジャッジ日時 2020-01-11 19:22:16

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
01.txt AC 4 ms
4,428 KB
02.txt AC 8 ms
4,432 KB
03.txt AC 8 ms
4,432 KB
04.txt AC 8 ms
4,436 KB
05.txt AC 8 ms
4,568 KB
06.txt AC 16 ms
5,332 KB
07.txt AC 12 ms
5,072 KB
08.txt AC 32 ms
6,996 KB
09.txt AC 620 ms
22,728 KB
10.txt AC 412 ms
18,120 KB
11.txt AC 664 ms
30,980 KB
12.txt AC 636 ms
27,344 KB
13.txt AC 688 ms
28,112 KB
14.txt AC 708 ms
32,980 KB
15.txt AC 636 ms
32,840 KB
16.txt AC 640 ms
32,564 KB
17.txt AC 664 ms
32,692 KB
18.txt AC 692 ms
32,704 KB
19.txt AC 580 ms
31,696 KB
20.txt AC 8 ms
4,560 KB
s1.txt AC 8 ms
4,452 KB
s2.txt AC 4 ms
4,444 KB
s3.txt AC 4 ms
4,448 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