#516240 (Perl) No.1120 Strange Teacher

• 問題: No.1120 Strange Teacher
• ユーザー: tails
• 提出日時: 2020-07-22 22:04:02
• 言語: Perl (5.38.2)
• 結果: WA
• 実行時間: -
• コード長: 320 bytes
• コンパイル時間: 560 ms
• コンパイル使用メモリ: 5,336 KB
• 実行使用メモリ: 32,304 KB
• 最終ジャッジ日時: 2023-09-04 20:32:57
• 合計ジャッジ時間: 3,885 ms
• ジャッジサーバーID （参考情報）: judge12 / judge14

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	2 ms; 4,528 KB
testcase_01	AC	2 ms; 4,572 KB
testcase_02	AC	4 ms; 4,992 KB
testcase_03	AC	15 ms; 7,432 KB
testcase_04	AC	132 ms; 31,852 KB
testcase_05	AC	131 ms; 31,988 KB
testcase_06	AC	133 ms; 31,872 KB
testcase_07	AC	132 ms; 32,080 KB
testcase_08	AC	131 ms; 31,928 KB
testcase_09	AC	3 ms; 4,548 KB
testcase_10	AC	100 ms; 28,984 KB
testcase_11	AC	100 ms; 28,844 KB
testcase_12	AC	100 ms; 28,936 KB
testcase_13	AC	99 ms; 28,960 KB
testcase_14	AC	99 ms; 28,720 KB
testcase_15	AC	100 ms; 28,828 KB
testcase_16	WA	-
testcase_17	WA	-
testcase_18	AC	3 ms; 4,532 KB
testcase_19	AC	132 ms; 32,304 KB
testcase_20	AC	3 ms; 4,852 KB
testcase_21	AC	3 ms; 4,552 KB
testcase_22	AC	3 ms; 4,804 KB
testcase_23	AC	3 ms; 4,796 KB
testcase_24	AC	131 ms; 31,668 KB
testcase_25	AC	2 ms; 4,796 KB
testcase_26	AC	2 ms; 4,764 KB
testcase_27	AC	2 ms; 4,664 KB
testcase_28	AC	3 ms; 4,664 KB
testcase_29	AC	3 ms; 4,740 KB

コンパイルメッセージ

Name "main::u" used only once: possible typo at Main.pl line 21.
Main.pl syntax OK

ソースコード

sub muri { print -1; exit; }

$n=<>;
@a=<>=~/\S+/g;
@b=<>=~/\S+/g;
for(0..$n-1){
	$s-=$b[$_]-=$a[$_];
}

if($n==2){
	$s==0 or muri;
	$t=abs$b[0];
}else{
	$s%($n-2)==0 or muri;
	$s/=$n-2;
	if($b[0]+$s&1){
		$d=$n-2;
	}
	for(0..$n-1){
		($b[$_]+=$d)+$s&1 and muri;
		$t+=$u=($b[$_]+$s)/2;
	}
	$s==$t or muri;
}

print $t;