結果

問題 No.3233 順列判定
コンテスト
ユーザー tomerun
提出日時 2025-08-15 21:28:07
言語 Crystal
(1.19.1)
コンパイル:
crystal build -Donline_judge -o a.out --release --no-debug _filename_
実行:
./a.out
結果
AC  
実行時間 10 ms / 1,000 ms
+ 25µs
コード長 333 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 9,034 ms
コンパイル使用メモリ 339,268 KB
実行使用メモリ 7,808 KB
最終ジャッジ日時 2026-07-14 01:48:30
合計ジャッジ時間 10,882 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 40
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

n, m = read_line.split.map(&.to_i)
if m == 1
  puts "Yes"
  exit
end
a = Array.new(n) { |i| pow(i.to_i64 + 1, m, n) }
puts a.uniq.size == n ? "Yes" : "No"

def pow(v : Int64, p, mod : Int64)
  ret = 1i64
  while p > 0
    if (p & 1i64) != 0
      ret *= v
      ret %= mod
    end
    v *= v
    v %= mod
    p >>= 1
  end
  ret
end
0