結果

問題 No.847 Divisors of Power
ユーザー pekempeypekempey
提出日時 2019-07-25 05:08:04
言語 Scheme
(Gauche-0.9.14)
結果
RE  
実行時間 -
コード長 735 bytes
コンパイル時間 138 ms
コンパイル使用メモリ 6,948 KB
実行使用メモリ 16,256 KB
最終ジャッジ日時 2024-10-07 02:29:16
合計ジャッジ時間 1,667 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 RE -
testcase_01 RE -
testcase_02 RE -
testcase_03 RE -
testcase_04 RE -
testcase_05 RE -
testcase_06 RE -
testcase_07 RE -
testcase_08 RE -
testcase_09 RE -
testcase_10 RE -
testcase_11 RE -
testcase_12 RE -
testcase_13 RE -
testcase_14 RE -
testcase_15 RE -
testcase_16 RE -
testcase_17 RE -
testcase_18 RE -
testcase_19 RE -
testcase_20 RE -
testcase_21 RE -
testcase_22 RE -
testcase_23 RE -
testcase_24 RE -
testcase_25 RE -
testcase_26 RE -
testcase_27 RE -
testcase_28 RE -
testcase_29 RE -
権限があれば一括ダウンロードができます

ソースコード

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