結果

問題 No.847 Divisors of Power
コンテスト
ユーザー pekempey
提出日時 2019-07-25 05:08:04
言語 Scheme
(Gauche-0.9.15)
結果
RE  
実行時間 -
コード長 735 bytes
コンパイル時間 138 ms
コンパイル使用メモリ 6,948 KB
実行使用メモリ 16,256 KB
最終ジャッジ日時 2024-10-07 02:29:16
合計ジャッジ時間 1,667 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample RE * 4
other RE * 26
権限があれば一括ダウンロードができます

ソースコード

diff # 

fun readLongs(): List<Long> = readLine()!!.split(" ").map{it.toLong()}

fun factors(n_: Long): Map<Long, Long> {
  var n = n_
  var ans: MutableMap<Long, Long> = mutableMapOf()
  var i = 2L
  while (i * i <= n) {
    while (n % i == 0L) {
      ans[i] = (ans[i] ?: 0) + 1
      n /= i
    }
    i += 1
  }
  if (n != 1L) ans[n] = 1
  return ans
}

fun dfs(k: Int, x_: Long, fs: List<Pair<Long, Long>>): Int {
  var x = x_
  if (k == fs.size) return 1
  var ans = 0
  var i = 0L
  while (x >= 1L && i <= fs[k].second) {
    ans += dfs(k+1, x, fs)
    x /= fs[k].first
    i++
  }
  return ans
}

fun main(args: Array<String>) {
  val (N, K, M) = readLongs()
  val fs = factors(N).map{ (k, v) -> Pair(k, v*K) }
  println(dfs(0, M, fs))
}
0