結果
問題 | No.1959 Prefix MinMax |
ユーザー |
![]() |
提出日時 | 2022-05-27 22:09:35 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 70 ms / 2,000 ms |
コード長 | 213 bytes |
コンパイル時間 | 503 ms |
コンパイル使用メモリ | 5,760 KB |
実行使用メモリ | 25,452 KB |
平均クエリ数 | 26.72 |
最終ジャッジ日時 | 2024-09-20 17:10:17 |
合計ジャッジ時間 | 4,186 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 |
other | AC * 31 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
sub f{print "? @_\n";@b=glob<>;$p[0]=$b[0];for(1..$n-1){if($b[$_]!=$b[$_-1]){$p[$_]=$b[$_];}}}$|=1;for(1..<>){$n=<>;@p=(-1)x$n;f map$_&1,0..$n-2;f map$_&1,1..$n-1;print"! @p\n";}