結果

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

ソースコード

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 < s.length - kr && s[i + kr] == 'R')
        return false;
      break;
    case 'B':
      if (i >= kb && s[i - kb] == 'B' || i < s.length - kb && s[i + kb] == 'B')
        return false;
      break;
    default:
    }
  }
  return true;
}
0