結果

問題 No.1312 Snake Eyes
ユーザー yuruhiya
提出日時 2020-12-13 11:40:33
言語 Crystal
(1.14.0)
結果
AC  
実行時間 52 ms / 2,000 ms
コード長 1,072 bytes
コンパイル時間 15,560 ms
コンパイル使用メモリ 296,156 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-11-30 13:08:04
合計ジャッジ時間 19,385 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 85
権限があれば一括ダウンロードができます

ソースコード

diff # 

lib C
  fun strtoll(s : UInt8*, p : UInt8**, b : Int32) : Int64
end

class String
  def to_i64
    C.strtoll(self, nil, 10)
  end
end

struct Int
  def prime_factor : Array(Tuple(self, Int32))
    result = Array(Tuple(self, Int32)).new
    n = self
    typeof(self).new(2).upto(Math.sqrt(self).ceil) do |x|
      count = 0
      while n % x == 0
        n //= x
        count += 1
      end
      result << {x, count} if count > 0
    end
    result << {n, 1} if n != 1
    result
  end

  def divisors : Array(self)
    result = Array(self).new
    typeof(self).new(1).upto(self) do |x|
      break if x * x > self
      result << x if self % x == 0
    end
    (0...result.size).reverse_each do |i|
      result << self // result[i] if result[i] * result[i] < self
    end
    result
  end
end

n = read_line.to_i64
ans = n + 1
(2i64..Math.sqrt(n).to_i64).each do |r|
  val = 1i64
  while val <= n
    ans = {ans, r}.min if n % val == 0 && n // val < r
    val = val * r + 1
  end
end

n.divisors.each do |a|
  b = n // a - 1
  ans = {ans, b}.min if a < b
end

puts ans
0