結果

問題 No.370 道路の掃除
ユーザー te-sh
提出日時 2017-07-20 10:32:45
言語 D
(dmd 2.109.1)
結果
RE  
実行時間 -
コード長 660 bytes
コンパイル時間 748 ms
コンパイル使用メモリ 108,892 KB
実行使用メモリ 6,948 KB
最終ジャッジ日時 2024-06-12 21:02:08
合計ジャッジ時間 1,942 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 12 WA * 4 RE * 18
権限があれば一括ダウンロードができます

ソースコード

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)
{
  if (a.length == 0) return int.max;

  auto r = a[n-1];

  foreach (i; max(n-b.length, 1)..min(a.length, n)) {
    r = min(r, a[i-1] * 2 + b[n-i-1]);
  }

  return r;
}
0