結果
問題 | No.1868 Teleporting Cyanmond |
ユーザー |
![]() |
提出日時 | 2022-03-11 21:25:40 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 213 ms / 2,000 ms |
コード長 | 152 bytes |
コンパイル時間 | 720 ms |
コンパイル使用メモリ | 6,684 KB |
実行使用メモリ | 32,256 KB |
最終ジャッジ日時 | 2024-09-16 01:26:01 |
合計ジャッジ時間 | 5,089 ms |
ジャッジサーバーID (参考情報) |
judge6 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 25 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$n=<>; @r=(0,glob<>); $a=1; for$i(1..$n){ if($r[$i]==$n){ print $c+1; exit; } if($b<$r[$i]){ $b=$r[$i]; } if($i==$a){ $a=$b; $c+=1; } }