結果

問題 No.1973 Divisor Sequence
ユーザー TKG1TKG1
提出日時 2022-06-10 23:47:25
言語 Crystal
(1.11.2)
結果
TLE  
実行時間 -
コード長 865 bytes
コンパイル時間 12,500 ms
コンパイル使用メモリ 298,400 KB
実行使用メモリ 249,216 KB
最終ジャッジ日時 2024-09-21 07:02:44
合計ジャッジ時間 16,072 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 2 ms
10,624 KB
testcase_01 AC 2 ms
5,248 KB
testcase_02 TLE -
testcase_03 -- -
testcase_04 -- -
testcase_05 -- -
testcase_06 -- -
testcase_07 -- -
testcase_08 -- -
testcase_09 -- -
testcase_10 -- -
testcase_11 -- -
testcase_12 -- -
testcase_13 -- -
testcase_14 -- -
testcase_15 -- -
testcase_16 -- -
testcase_17 -- -
testcase_18 -- -
testcase_19 -- -
testcase_20 -- -
testcase_21 -- -
testcase_22 -- -
testcase_23 -- -
testcase_24 -- -
権限があれば一括ダウンロードができます

ソースコード

diff # 

alias LL = Int64
macro chmin(x, y); {{x}} = {{y}} if {{x}} > {{y}}; end
macro chmax(x, y); {{x}} = {{y}} if {{x}} < {{y}}; end
macro yn(x); {{x}} ? "Yes" : "No"; end

# 約数列挙
def divsors(n : Int64)
  res = Set(Int64).new
  i = 1i64
  while i * i <= n
    if n % i == 0
      res << i
      res << (n // i)
    end
    i += 1
  end
  return res
end

# ---------------------------------------------------- :)

n, m = read_line.split.map(&.to_i64)
mod = 10**9+7
div = divsors(m)
dp = Array.new(n){Hash(LL, LL).new(0)}
sum = Hash(LL, Array(LL)).new

div.each do |i|
  dp[0][i] = 1
  div.each do |j|
    if (1i128*i*j) % m == 0
      sum[i] ||= [] of Int64
      sum[i] << j
    end
  end
end

1.upto(n-1) do |i|
  div.each do |j|
    sum[j].each do |k|
      dp[i][j] += dp[i-1][k]
      dp[i][j] %= mod
    end
  end
end

puts dp[n-1].values.sum(&.% mod) % mod
0