#717045 (Perl) No.1734 Decreasing Elements

• 問題: No.1734 Decreasing Elements
• ユーザー: tails
• 提出日時: 2021-11-17 17:22:37
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 1,335 ms / 3,000 ms
• コード長: 195 bytes
• コンパイル時間: 282 ms
• コンパイル使用メモリ: 7,076 KB
• 実行使用メモリ: 94,080 KB
• 最終ジャッジ日時: 2024-06-06 06:17:33
• 合計ジャッジ時間: 20,470 ms
• ジャッジサーバーID （参考情報）: judge5 / judge1

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	8 ms; 5,888 KB
testcase_01	AC	8 ms; 6,016 KB
testcase_02	AC	7 ms; 5,888 KB
testcase_03	AC	7 ms; 5,888 KB
testcase_04	AC	7 ms; 6,016 KB
testcase_05	AC	8 ms; 5,888 KB
testcase_06	AC	7 ms; 6,016 KB
testcase_07	AC	500 ms; 45,056 KB
testcase_08	AC	492 ms; 42,880 KB
testcase_09	AC	351 ms; 26,112 KB
testcase_10	AC	399 ms; 29,696 KB
testcase_11	AC	963 ms; 59,648 KB
testcase_12	AC	465 ms; 34,816 KB
testcase_13	AC	698 ms; 53,376 KB
testcase_14	AC	1,267 ms; 80,384 KB
testcase_15	AC	983 ms; 69,504 KB
testcase_16	AC	1,335 ms; 89,856 KB
testcase_17	AC	1,305 ms; 83,968 KB
testcase_18	AC	1,300 ms; 86,784 KB
testcase_19	AC	799 ms; 63,488 KB
testcase_20	AC	804 ms; 63,360 KB
testcase_21	AC	973 ms; 79,232 KB
testcase_22	AC	973 ms; 79,360 KB
testcase_23	AC	1,158 ms; 94,080 KB
testcase_24	AC	1,207 ms; 84,352 KB
testcase_25	AC	1,138 ms; 82,176 KB
testcase_26	AC	1,123 ms; 82,304 KB

コンパイルメッセージ

Main.pl syntax OK

ソースコード

sub r{/./?$_=&r:0for$u[$r=$_];$r}
sub u{($a,$b)=map r,@_;@u[$b,$a]=$a}
<>;
$h=3e5;
map{
	++$%,$x*2<$l+$h?
	map{u$x++,$l++}$l..$x-1:
	map{u--$h+$l-$x,$h}$x..$h-1
    if($x=r)-$l;
}glob<>;
print$%;