結果
問題 |
No.185 和風
|
ユーザー |
|
提出日時 | 2016-10-23 12:51:39 |
言語 | Perl (5.40.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 306 bytes |
コンパイル時間 | 249 ms |
コンパイル使用メモリ | 5,248 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2024-11-24 01:54:29 |
合計ジャッジ時間 | 643 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 6 WA * 1 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
my $N = <>+0; my ($X, $Y) = map { $_+0 } split ' ', <>; my $answer = $Y - $X; if ($answer < 0) { print "-1\n"; exit(0); } for (2..$N) { my ($X, $Y) = map { $_+0 } split ' ', <>; if ($Y - $X < 0 || $Y - $X != $answer) { print "-1\n"; exit(0); } $answer = $Y - $X; } print "$answer\n";