結果

問題 No.507 ゲーム大会(チーム決め)
ユーザー te-shte-sh
提出日時 2017-12-25 17:40:05
言語 D
(dmd 2.106.1)
結果
AC  
実行時間 41 ms / 3,000 ms
コード長 724 bytes
コンパイル時間 703 ms
コンパイル使用メモリ 111,172 KB
実行使用メモリ 7,116 KB
最終ジャッジ日時 2024-06-12 23:16:24
合計ジャッジ時間 1,935 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
6,816 KB
testcase_01 AC 1 ms
6,940 KB
testcase_02 AC 1 ms
6,940 KB
testcase_03 AC 1 ms
6,944 KB
testcase_04 AC 1 ms
6,944 KB
testcase_05 AC 1 ms
6,940 KB
testcase_06 AC 1 ms
6,940 KB
testcase_07 AC 41 ms
7,016 KB
testcase_08 AC 37 ms
6,944 KB
testcase_09 AC 22 ms
6,976 KB
testcase_10 AC 23 ms
7,048 KB
testcase_11 AC 22 ms
7,000 KB
testcase_12 AC 21 ms
7,044 KB
testcase_13 AC 41 ms
7,116 KB
testcase_14 AC 40 ms
7,060 KB
testcase_15 AC 39 ms
7,008 KB
testcase_16 AC 40 ms
6,980 KB
testcase_17 AC 1 ms
6,940 KB
testcase_18 AC 1 ms
6,940 KB
testcase_19 AC 1 ms
6,944 KB
testcase_20 AC 1 ms
6,944 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.algorithm, std.conv, std.range, std.stdio, std.string;
import std.typecons;  // Tuple, Nullable, BigFlags

void main()
{
  auto rd = readln.split.to!(int[]), n = rd[0], m = rd[1];
  auto kp = readln.chomp.to!int;
  auto a = new int[](n-1);
  foreach (i; 0..n-1) a[i] = readln.chomp.to!int;

  a.sort!"a>b";

  if (n/2 == m) {
    writeln(a[$-1]);
    return;
  }

  auto calc(int i)
  {
    auto p = kp+a[i];
    auto b = (a[0..i] ~ a[i+1..$])[0..m*2];
    foreach (j; 0..m)
      if (b[j]+b[$-1-j] <= p) return true;
    return false;
  }

  auto bsearch = iota(n-1).map!(i => tuple(i, calc(i))).assumeSorted!"a[1]>b[1]";
  auto r = bsearch.lowerBound(tuple(0, false));
  writeln(r.empty ? -1 : a[r.back[0]]);
}
0