結果

問題 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
権限があれば一括ダウンロードができます

ソースコード

diff # 

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;
}
0