結果

問題 No.179 塗り分け
コンテスト
ユーザー kou_kkk
提出日時 2023-08-06 00:44:09
言語 Nim
(2.2.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,142 bytes
コンパイル時間 965 ms
コンパイル使用メモリ 65,300 KB
最終ジャッジ日時 2024-11-15 04:39:54
合計ジャッジ時間 1,755 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
/home/judge/data/code/Main.nim(4, 30) Error: type mismatch: got 'seq[int]' for 'map(split(readLine(stdin), {' ', '\t', '\v', '\r', '\n', '\f'}, -1), parseInt)' but expected 'tuple'

ソースコード

diff # 

import sequtils, strutils, sugar

var h, w: int
(h, w) = stdin.readLine.split.map parseInt
let 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