結果

問題 No.179 塗り分け
ユーザー snipsnipsnipsnipsnipsnip
提出日時 2015-04-06 01:13:47
言語 Ruby
(3.3.0)
結果
WA  
実行時間 -
コード長 925 bytes
コンパイル時間 230 ms
コンパイル使用メモリ 7,424 KB
実行使用メモリ 77,764 KB
最終ジャッジ日時 2024-10-02 13:42:21
合計ジャッジ時間 22,134 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 85 ms
12,416 KB
testcase_01 WA -
testcase_02 AC 83 ms
12,160 KB
testcase_03 AC 82 ms
12,416 KB
testcase_04 AC 84 ms
12,288 KB
testcase_05 AC 191 ms
22,784 KB
testcase_06 WA -
testcase_07 RE -
testcase_08 AC 95 ms
12,544 KB
testcase_09 WA -
testcase_10 AC 112 ms
14,080 KB
testcase_11 AC 109 ms
13,824 KB
testcase_12 AC 2,035 ms
77,060 KB
testcase_13 AC 87 ms
12,416 KB
testcase_14 AC 85 ms
12,288 KB
testcase_15 AC 83 ms
12,288 KB
testcase_16 AC 83 ms
12,160 KB
testcase_17 RE -
testcase_18 WA -
testcase_19 WA -
testcase_20 AC 1,154 ms
65,352 KB
testcase_21 AC 173 ms
17,920 KB
testcase_22 AC 133 ms
16,384 KB
testcase_23 AC 95 ms
12,544 KB
testcase_24 AC 129 ms
17,152 KB
testcase_25 AC 115 ms
15,360 KB
testcase_26 WA -
testcase_27 AC 775 ms
50,176 KB
testcase_28 WA -
testcase_29 AC 1,172 ms
73,964 KB
testcase_30 WA -
testcase_31 AC 1,373 ms
76,028 KB
testcase_32 AC 641 ms
44,092 KB
testcase_33 AC 1,431 ms
76,156 KB
testcase_34 WA -
testcase_35 AC 1,619 ms
77,764 KB
testcase_36 AC 89 ms
12,288 KB
testcase_37 AC 88 ms
12,288 KB
testcase_38 AC 90 ms
12,288 KB
testcase_39 AC 83 ms
12,288 KB
testcase_40 AC 86 ms
12,288 KB
testcase_41 AC 88 ms
12,160 KB
testcase_42 AC 90 ms
12,416 KB
testcase_43 AC 112 ms
14,080 KB
testcase_44 AC 215 ms
23,296 KB
testcase_45 AC 92 ms
12,288 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

require 'set'

H, W = gets.split.map(&:to_i)

class << MAP = Array.new(H) { gets.strip }
  def ok?(dx, dy)
    d = dy * W + dx
    bs = blacks - blacks.map {|i| i + d if i % W + dx < W }
    bs.size == blacks.size / 2 && bs.all? {|i| flat[i + d] == 35 }
  end

  def solve
    ax, ay, bx, by = aabb
    (1..by - ay).each do |dy|
      return :YES if ok?(0, dy)
    end
    (1..bx - ax).each do |dx|
      (0..by - ay).each do |dy|
        return :YES if ok?(dx, dy)
      end
    end
    :NO
  end

  def flat
    @flat ||= map(&:bytes).flatten
  end

  def blacks
    @blacks ||= Set.new(flat.each_with_index.map {|cell, i| i if cell == 35 }.compact)
  end

  def aabb
    ax = ay = bx = by = nil
    blacks.each do |i|
      y, x = i.divmod(W)
      ax = x if !ax || ax > x
      ay = y if !ay || ay > y
      bx = x if !bx || bx < x
      by = y if !by || by < y
    end
    return ax, ay, bx, by
  end
end

puts MAP.solve
0