結果
問題 |
No.3233 順列判定
|
ユーザー |
![]() |
提出日時 | 2025-08-15 23:33:00 |
言語 | D (dmd 2.109.1) |
結果 |
AC
|
実行時間 | 153 ms / 1,000 ms |
コード長 | 483 bytes |
コンパイル時間 | 766 ms |
コンパイル使用メモリ | 86,320 KB |
実行使用メモリ | 8,076 KB |
最終ジャッジ日時 | 2025-08-15 23:33:04 |
合計ジャッジ時間 | 3,297 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 40 |
ソースコード
import std.stdio, std.algorithm, std.array, std.conv, std.typecons, std.range; void main() { auto tmp = readln.split.to!(ulong[]); auto N = tmp[0], M = tmp[1]; bool[ulong] Aset; foreach (i; 1 .. N+1) { auto m = pow_mod(i, M, N); if (m in Aset) { writeln("No"); return; } Aset[m] = true; } writeln("Yes"); } // (i ^^ p) % n for i > 0 ulong pow_mod(ulong i, ulong p, ulong n) { ulong result = 1; foreach (_; 0 .. p) { result = (result * i) % n; } return result; }