結果

問題 No.370 道路の掃除
ユーザー te-shte-sh
提出日時 2017-07-20 11:00:57
言語 D
(dmd 2.106.1)
結果
WA  
実行時間 -
コード長 734 bytes
コンパイル時間 983 ms
コンパイル使用メモリ 108,928 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-06-12 21:02:12
合計ジャッジ時間 1,641 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
testcase_01 AC 1 ms
6,944 KB
testcase_02 AC 1 ms
6,940 KB
testcase_03 AC 1 ms
6,940 KB
testcase_04 AC 1 ms
6,944 KB
testcase_05 WA -
testcase_06 AC 1 ms
6,944 KB
testcase_07 AC 1 ms
6,944 KB
testcase_08 AC 1 ms
6,940 KB
testcase_09 WA -
testcase_10 AC 1 ms
6,940 KB
testcase_11 AC 1 ms
6,944 KB
testcase_12 AC 1 ms
6,940 KB
testcase_13 AC 1 ms
6,940 KB
testcase_14 AC 1 ms
6,944 KB
testcase_15 WA -
testcase_16 AC 1 ms
6,944 KB
testcase_17 WA -
testcase_18 WA -
testcase_19 AC 1 ms
6,940 KB
testcase_20 WA -
testcase_21 AC 1 ms
6,940 KB
testcase_22 WA -
testcase_23 AC 2 ms
6,944 KB
testcase_24 AC 0 ms
6,944 KB
testcase_25 AC 1 ms
6,944 KB
testcase_26 AC 1 ms
6,940 KB
testcase_27 AC 1 ms
6,944 KB
testcase_28 AC 1 ms
6,940 KB
testcase_29 AC 1 ms
6,940 KB
testcase_30 AC 2 ms
6,940 KB
testcase_31 AC 1 ms
6,940 KB
testcase_32 WA -
testcase_33 WA -
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.algorithm, std.conv, std.range, std.stdio, std.string;

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

  auto d1 = d.filter!"a > 0".array.sort().array;
  auto d2 = d.filter!"a < 0".map!"-a".array.sort().array;

  if (d.canFind(0)) --n;

  if (n == 0) {
    writeln(0);
    return;
  }

  writeln(min(calc(n, d1, d2), calc(n, d2, d1)));
}

auto calc(int n, int[] a, int[] b)
{
  auto r = int.max;

  foreach (i; 1..min(a.length, n)+1) {
    auto ri = a[i-1];
    if (i == n) {
      r = min(r, ri);
    } else if (0 < n-i && n-i < b.length) {
      ri += a[i-1] + b[n-i-1];
      r = min(r, ri);
    }
  }

  return r;
}
0