結果

問題 No.697 池の数はいくつか
ユーザー むらためむらため
提出日時 2019-01-24 07:58:58
言語 Nim
(2.0.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,397 bytes
コンパイル時間 523 ms
コンパイル使用メモリ 36,464 KB
最終ジャッジ日時 2023-08-16 23:01:06
合計ジャッジ時間 1,916 ms
ジャッジサーバーID
(参考情報)
judge12 / judge13
このコードへのチャレンジ(β)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
/home/judge/data/code/Main.nim(1, 17) Error: cannot open file: queues

ソースコード

diff #

import sequtils,queues

proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}
proc scan(): int32 =
  while true:
    let k = getchar_unlocked()
    if k < '0': break
    result = 10.int32 * result + k.ord.int32 - '0'.ord.int32

type UnionFind[T] = object
  parent : seq[T]
  rank : seq[int16]
proc root[T](self:var UnionFind[T],x:T): T =
  if self.parent[x] == x: return x
  self.parent[x] = self.root(self.parent[x])
  return self.parent[x]
proc initUnionFind[T](size:int) : UnionFind[T] =
  result.parent = newSeq[T](size)
  result.rank = newSeq[int16](size)
  for i in 0.int32..<size.int32: result.parent[i] = i
proc same[T](self:var UnionFind[T],x,y:T) : bool = self.root(x) == self.root(y)
proc unite[T](self:var UnionFind[T],x,y:T)  =
  let rx = self.root(x)
  let ry = self.root(y)
  if rx == ry : return
  if self.rank[rx] < self.rank[ry] : self.parent[rx] = ry
  else:
    self.parent[ry] = rx
    if self.rank[rx] == self.rank[ry]: self.rank[rx] += 1


let h = scan()
let w = scan()
var uf = initUnionFind[int32](h * w + 1)
var i = 1.int32
for y in 0..<h:
  for x in 0..<w:
    if getchar_unlocked() == '1':
      if x > 0 and uf.parent[i-1] != 0: uf.unite(i,i-1)
      if y > 0 and uf.parent[i-w] != 0: uf.unite(i,i-w)
    else: uf.parent[i] = 0
    discard getchar_unlocked()
    i += 1
var ans = 0
for i in 1..h*w:
  if uf.root(i) == i : ans += 1
echo ans
0