結果
問題 | 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"; }