結果

問題 No.3750 Mischievous Resident (Easy)
コンテスト
ユーザー 👑 tails
提出日時 2026-10-06 10:23:42
言語 Perl
(5.44.0)
コンパイル:
perl -cw _filename_
実行:
perl -X _filename_
結果
AC  
実行時間 990 ms / 2,000 ms
+ 121µs
コード長 240 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 29 ms
コンパイル使用メモリ 7,852 KB
実行使用メモリ 87,704 KB
最終ジャッジ日時 2026-10-06 10:24:11
合計ジャッジ時間 27,423 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1
other AC * 35
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
raw source code 

use feature 'say';
for(1..<>){
	<>;
	@s=glob<>;
	%h=();
	$z=Yes;
	for$g(glob<>){
		$s=shift@s;
		if($h{$g}){
			$z=No if $g!=$s||$g!=$h{$g};
		}
		$h{$g}=$s;
	}
	$p=0;
	for(sort{$a-$b}keys%h){
		$z=No if $p>$h{$_};
		$p=$h{$_};
	}
	say$z;
}
0