結果
問題 | No.624 Santa Claus and The Last Dungeon |
ユーザー |
![]() |
提出日時 | 2017-12-24 03:06:35 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 57 ms / 2,000 ms |
コード長 | 1,631 bytes |
コンパイル時間 | 114 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 25,464 KB |
平均クエリ数 | 399.28 |
最終ジャッジ日時 | 2024-07-16 15:10:01 |
合計ジャッジ時間 | 4,284 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 36 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$|=<>;@k=0..99;for(0..49){$d0=sprintf("%02d",$_*2);$d1=sprintf("%02d",$_*2+1);@kc=@k;while(1){@q=('??')x100;$mc=$kc[@kc/2];for(@kc){$q[$_]=$_<$mc?$d0:$d1;}print"@q\n";$r=(glob<>)[2];if($r==0){@k0=grep{$_>=$mc}@kc;@k1=grep{$_<$mc}@kc;last;}if($r==1){@q=('??')x100;for(@kc){$q[$_]=$d0 if$_<$mc;}print"@q\n";$r=(glob<>)[2];if($r==0){@kc=grep{$_>=$mc}@kc;}else{@kc=grep{$_<$mc}@kc;}}if($r==2){@k0=grep{$_<$mc}@kc;@k1=grep{$_>=$mc}@kc;last;}}while(@k0>1&&@k1>1){@q=('??')x100;$m0=$k0[@k0/2];for(@k0){$q[$_]=$d0 if$_<$m0;}$m1=$k1[@k1/2];for(@k1){$q[$_]=$d1 if$_<$m1;}print"@q\n";$r=(glob<>)[2];if($r==0){@k0=grep{$_>=$m0}@k0;@k1=grep{$_>=$m1}@k1;}if($r==1){@q=('??')x100;for(@k0){$q[$_]=$d0 if$_<$m0;}print"@q\n";$r=(glob<>)[2];if($r==0){@k0=grep{$_>=$m0}@k0;@k1=grep{$_<$m1}@k1;}else{@k0=grep{$_<$m0}@k0;@k1=grep{$_>=$m1}@k1;}}if($r==2){@k0=grep{$_<$m0}@k0;@k1=grep{$_<$m1}@k1;}}while(@k0>1){@q=('??')x100;$m0=$k0[@k0/2];for(@k0){$q[$_]=$d0 if$_<$m0;}print"@q\n";$r=(glob<>)[2];if($r==0){@k0=grep{$_>=$m0}@k0;}if($r==1){@k0=grep{$_<$m0}@k0;}}while(@k1>1){@q=('??')x100;$m1=$k1[@k1/2];for(@k1){$q[$_]=$d1 if$_<$m1;}print"@q\n";$r=(glob<>)[2];if($r==0){@k1=grep{$_>=$m1}@k1;}if($r==1){@k1=grep{$_<$m1}@k1;}}@k=grep{$_!=$k0[0]&&$_!=$k1[0]}@k;$a[$k0[0]]=$d0;$a[$k1[0]]=$d1;}print"@a\n";