結果

問題 No.2838 Diagonals
ユーザー tomeruntomerun
提出日時 2024-08-09 22:00:25
言語 Crystal
(1.14.0)
結果
AC  
実行時間 20 ms / 2,000 ms
コード長 957 bytes
コンパイル時間 12,793 ms
コンパイル使用メモリ 294,972 KB
実行使用メモリ 11,404 KB
最終ジャッジ日時 2024-08-09 22:00:38
合計ジャッジ時間 12,525 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 20
権限があれば一括ダウンロードができます

ソースコード

diff # 

MOD = 998244353i64
DY  = [1, 0, -1, 0]
DX  = [0, 1, 0, -1]

def pow(v : Int64, p)
  ret = 1i64
  while p > 0
    if (p & 1i64) != 0
      ret *= v
      ret %= MOD
    end
    v *= v
    v %= MOD
    p >>= 1
  end
  ret
end

n, m = read_line.split.map(&.to_i)
s = Array.new(n) { read_line.chars }
visited = Array.new(n) { Array.new(m, false) }
ans = 1i64
n.times do |i|
  m.times do |j|
    next if s[i][j] == '.' || visited[i][j]
    q = [{i, j}]
    visited[i][j] = true
    qi = 0
    ec = 0
    while qi < q.size
      cy, cx = q[qi]
      qi += 1
      4.times do |dir|
        ny = cy + DY[dir]
        nx = cx + DX[dir]
        if 0 <= ny < n && 0 <= nx < m && s[ny][nx] == '#'
          ec += 1
          if !visited[ny][nx]
            visited[ny][nx] = true
            q << {ny, nx}
          end
        end
      end
    end
    ec //= 2
    rm = {0, ec - q.size + 1}.max
    ans *= pow(2i64, q.size * 2 - rm)
    ans %= MOD
  end
end
puts ans
0