結果
問題 | No.871 かえるのうた |
ユーザー |
![]() |
提出日時 | 2019-08-30 22:24:10 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 640 ms / 2,000 ms |
コード長 | 393 bytes |
コンパイル時間 | 521 ms |
コンパイル使用メモリ | 7,072 KB |
実行使用メモリ | 41,876 KB |
最終ジャッジ日時 | 2024-11-30 10:48:44 |
合計ジャッジ時間 | 11,149 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 49 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use integer;($n,$k)=glob<>;@x=glob<>;@a=glob<>;--$k;$l=$x[$k]-$a[$k];$r=$x[$k]+$a[$k];$i=$k-1;$j=$k+1;while(1){if($i>=0 && $x[$i]>=$l){$l=$x[$i]-$a[$i] if $l>$x[$i]-$a[$i];$r=$x[$i]+$a[$i] if $r<$x[$i]+$a[$i];--$i;}elsif($j<$n && $x[$j]<=$r){$l=$x[$j]-$a[$j] if $l>$x[$j]-$a[$j];$r=$x[$j]+$a[$j] if $r<$x[$j]+$a[$j];++$j;}else{last;}}print $j-$i-1;