結果

問題 No.2795 Perfect Number
ユーザー lingfunnylingfunny
提出日時 2024-06-28 21:30:39
言語 C++23
(gcc 12.3.0 + boost 1.83.0)
結果
AC  
実行時間 3 ms / 2,000 ms
コード長 1,829 bytes
コンパイル時間 3,154 ms
コンパイル使用メモリ 255,492 KB
実行使用メモリ 6,948 KB
最終ジャッジ日時 2024-06-28 21:31:14
合計ジャッジ時間 3,772 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
6,812 KB
testcase_01 AC 2 ms
6,816 KB
testcase_02 AC 2 ms
6,816 KB
testcase_03 AC 2 ms
6,940 KB
testcase_04 AC 2 ms
6,940 KB
testcase_05 AC 1 ms
6,940 KB
testcase_06 AC 1 ms
6,944 KB
testcase_07 AC 2 ms
6,944 KB
testcase_08 AC 2 ms
6,944 KB
testcase_09 AC 2 ms
6,944 KB
testcase_10 AC 2 ms
6,940 KB
testcase_11 AC 2 ms
6,940 KB
testcase_12 AC 1 ms
6,940 KB
testcase_13 AC 2 ms
6,940 KB
testcase_14 AC 3 ms
6,944 KB
testcase_15 AC 2 ms
6,944 KB
testcase_16 AC 3 ms
6,940 KB
testcase_17 AC 2 ms
6,944 KB
testcase_18 AC 3 ms
6,944 KB
testcase_19 AC 1 ms
6,944 KB
testcase_20 AC 2 ms
6,944 KB
testcase_21 AC 2 ms
6,940 KB
testcase_22 AC 2 ms
6,944 KB
testcase_23 AC 1 ms
6,940 KB
testcase_24 AC 1 ms
6,944 KB
testcase_25 AC 2 ms
6,944 KB
testcase_26 AC 2 ms
6,944 KB
testcase_27 AC 2 ms
6,948 KB
testcase_28 AC 2 ms
6,944 KB
testcase_29 AC 2 ms
6,944 KB
testcase_30 AC 2 ms
6,944 KB
testcase_31 AC 1 ms
6,940 KB
testcase_32 AC 2 ms
6,944 KB
testcase_33 AC 1 ms
6,940 KB
testcase_34 AC 2 ms
6,940 KB
testcase_35 AC 2 ms
6,944 KB
testcase_36 AC 2 ms
6,940 KB
testcase_37 AC 1 ms
6,944 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

#include <bits/stdc++.h>
using namespace std;
using LL = long long;
using LLL = __int128;

const int primes[] = {1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 20, 31, 37};

inline LL qpow(LL x, LL k, LL mod) {
	LL res = 1;
	while(k) {
		if(k&1) res = (LLL)res*x%mod;
		x = (LLL)x*x%mod;
		k >>= 1;
	}
	return res;
}

inline bool millerRabin(LL x) {
	if(x < 2 || !(x&1)) return x==2;
	LL d = x-1; int t = 0;
	while(!(d&1)) d>>=1, ++t;
	for(int i=1, j;i<=12;++i) {
		if(x == primes[i]) return true;
		if(x%primes[i] == 0 || qpow(primes[i], x-1, x) != 1) return false;
		LL u = qpow(primes[i]%x, d, x);
		if(u == 1) continue;
		for(j=0;j<t;++j) {
			if(u == x-1) break;
			u = (LLL)u*u%x;
		}
		if(j >= t) return false;
	}
	return true;
}

inline LL gcd(LL x, LL y) {
	if(x < y) swap(x, y);
	while(y) {
		x %= y;
		swap(x, y);
	}
	return x;
}
inline LL f(LL x, LL c, LL mod) { return ((LLL)x*x+c)%mod; }
std::mt19937_64 rrand(114514);
inline LL pollardRho(LL x) {
	LL s = 0, t = 0, val, c = rrand()%(x-1)+1;
	for(int goal = 1; ; goal <<= 1, s = t) {
		val = 1;
		for(int step = 1; step <= goal; ++step) {
			t = f(t, c, x);
			val = (LLL)val * abs(t-s) % x;
			if(!(step%127)) {
				LL d = gcd(val, x);
				if(d > 1) return d;
			}
		}
		LL d = gcd(val, x);
		if(d > 1) return d;
	}
}
map <LL, int> M;
void fac(LL n) {
	if(millerRabin(n) || n <= 2) {
		if (n > 1) M[n] += 1;
		return;
	}
	LL x = n;
	while(x == n) x = pollardRho(n); 
	fac(x), fac(n / x);
}

vector<pair<LL, int>> fact;

LL n, s;
int tot;

void dfs(int i, LL cur) {
	if (i == tot) {
		s += cur;
		return;
	}
	auto [p, c] = fact[i];
	for (LL j = 0, x = 1; j <= c; ++j, x *= p)
		dfs(i + 1, cur * x);
}

int main() {
	cin >> n;
	fac(n);
	for (auto [p, c] : M) fact.emplace_back(p, c);
	tot = fact.size();
	dfs(0, 1);
	puts(s == 2 * n ? "Yes" : "No");
	return 0;
}

// pollard_rho
0