結果

問題 No.38 赤青白ブロック
ユーザー te-shte-sh
提出日時 2017-01-17 17:19:15
言語 D
(dmd 2.109.1)
結果
AC  
実行時間 341 ms / 5,000 ms
コード長 1,109 bytes
コンパイル時間 658 ms
コンパイル使用メモリ 103,140 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-06-12 06:28:13
合計ジャッジ時間 2,285 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 27
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.algorithm, std.conv, std.range, std.stdio, std.string;
import core.bitop;    // bit operation

void main()
{
  auto rd = readln.split.to!(int[]), kr = rd[0], kb = rd[1];
  auto s = readln.chomp;

  auto bi = bitPos(s);

  auto maxL = 0.to!size_t;
  foreach (i; (1 << 20).iota) {
    if (s.length - i.popcnt <= maxL) continue;
    string t;
    foreach (j; 30.iota)
      if (!bitTest(i, bi[j])) t ~= s[j];
    if (valid(t, kr, kb))
      maxL = max(maxL, t.length);
  }

  writeln(maxL);
}

bool bitTest(T)(T n, size_t i) { return (n & (1.to!T << i)) != 0; }

auto bitPos(string s)
{
  auto j = 0;
  auto bi = new size_t[](30);
  foreach (i, c; s) {
    if (c == 'W') bi[i] = 21;
    else bi[i] = j++;
  }
  return bi;
}

auto valid(T)(T[] s, int kr, int kb)
{
  foreach (i, c; s) {
    switch (c) {
    case 'R':
      if (i >= kr && s[i - kr] == 'R' || i + kr < s.length && s[i + kr] == 'R')
        return false;
      break;
    case 'B':
      if (i >= kb && s[i - kb] == 'B' || i + kb < s.length && s[i + kb] == 'B')
        return false;
      break;
    default:
    }
  }
  return true;
}
0