結果

問題 No.2527 H and W
ユーザー tomerun
提出日時 2023-11-03 21:34:59
言語 Crystal
(1.14.0)
結果
AC  
実行時間 53 ms / 2,000 ms
コード長 759 bytes
コンパイル時間 12,853 ms
コンパイル使用メモリ 297,076 KB
実行使用メモリ 29,952 KB
最終ジャッジ日時 2024-09-25 19:31:12
合計ジャッジ時間 14,317 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 23
権限があれば一括ダウンロードができます

ソースコード

diff # 

MOD  = 998244353i64
FACT = [1i64]
1000001.times do |i|
  FACT << FACT[i] * (i + 1) % MOD
end
FACT_INV = Array.new(FACT.size, 0i64)
FACT_INV[-1] = inv(FACT[-1])
(FACT_INV.size - 2).downto(0) do |i|
  FACT_INV[i] = FACT_INV[i + 1] * (i + 1) % MOD
end

def binom(n, k)
  FACT[n] * FACT_INV[k] % MOD * FACT_INV[n - k] % MOD
end

def inv(v)
  pow(v, MOD - 2)
end

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

h, w, k = read_line.split.map(&.to_i64)
c = h * w - k
ans = 0i64
0.upto(h) do |i|
  rest = c - (w * i)
  break if rest < 0
  if rest % (h - i) == 0
    u = rest // (h - i)
    ans += binom(h, i) * binom(w, u)
    ans %= MOD
  end
end
puts ans
0