結果
問題 | No.594 壊れた宝物発見機 |
ユーザー |
![]() |
提出日時 | 2017-11-10 22:48:04 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 105 ms / 2,000 ms |
コード長 | 365 bytes |
コンパイル時間 | 169 ms |
コンパイル使用メモリ | 7,068 KB |
実行使用メモリ | 25,488 KB |
平均クエリ数 | 31.00 |
最終ジャッジ日時 | 2024-07-16 14:27:20 |
合計ジャッジ時間 | 3,421 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 20 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
sub f{ $x0=-100; $x1=100; $x[$i]=$x0; print"? @x\n"; $d0=<>; $x[$i]=$x1; print"? @x\n"; $d1=<>; while($x0<$x1){ if($d0>$d1){ $x0=int(($x0+$x1+401)/2)-200; $x[$i]=$x0; print"? @x\n"; $d0=<>; }else{ $x1=int(($x0+$x1+400)/2)-200; $x[$i]=$x1; print"? @x\n"; $d1=<>; } } } @x=(0,0,0); $|=1; for$i(0..2){ f; } print"! @x\n";