結果

問題 No.2409 Strange Werewolves
ユーザー tomerun
提出日時 2023-08-11 21:32:47
言語 Crystal
(1.14.0)
結果
AC  
実行時間 18 ms / 2,000 ms
コード長 655 bytes
コンパイル時間 10,557 ms
コンパイル使用メモリ 294,768 KB
実行使用メモリ 13,952 KB
最終ジャッジ日時 2024-11-18 15:30:58
合計ジャッジ時間 11,440 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 16
権限があれば一括ダウンロードができます

ソースコード

diff # 

MOD  = 998244353i64
FACT = [1i64]
600010.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

x, y, z, w = read_line.split.map(&.to_i64)
if w == 0
  x, y = y, x
  z, w = w, z
end
puts binom(y, w) * x % MOD * FACT[y - w + x - 1] % MOD
0