結果

問題 No.179 塗り分け
ユーザー kou_kkk
提出日時 2024-04-24 10:05:13
言語 Nim
(2.2.0)
結果
AC  
実行時間 260 ms / 3,000 ms
コード長 1,130 bytes
コンパイル時間 4,727 ms
コンパイル使用メモリ 67,712 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-11-06 17:37:23
合計ジャッジ時間 6,474 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 6
other AC * 40
権限があれば一括ダウンロードができます

ソースコード

diff # 

import sequtils, strutils, sugar

let
  xs = stdin.readLine.split.map parseInt
  h = xs[0]
  w = xs[1]
  ss = (0 ..< h).mapIt stdin.readLine


proc fn(s: string): seq[int] =
  collect newSeq:
    for i, c in s:
      if c == '#': i


let
  ss2 = ss.map fn
  idxs = collect newSeq:
    for i, xs in ss2:
      for x in xs: (i, x)
  length = idxs.len


proc sub(list: var seq[int], val: int): void =
  var idx = 0
  for i, v in list:
    if val == v: idx = i
  list.del idx


proc fn2(dist: (int, int)): bool =
  var
    xs = ss2
    cnt = 0
  for (i, j) in idxs:
    if j notin xs[i]: continue
    let
      i2 = i.succ dist[0]
      j2 = j.succ dist[1]
    if i2 < 0 or i2 >= h or j2 < 0 or j2 >= w: continue
    if j2 notin xs[i2]: return false
    sub(xs[i], j)
    sub(xs[i.succ dist[0]], j.succ dist[1])
    inc cnt
    if cnt == length div 2: return true


if length == 0 or length mod 2 == 1:
  echo "NO"
else:
  var
    b: bool
  let
    list = idxs[1 ..< length]
  for (i, j) in list:
    let dist = (i.pred idxs[0][0],j.pred idxs[0][1])
    b = fn2 dist
    if b:
      break

  if b:
    echo "YES"
  else:
    echo "NO"
0