結果

問題 No.1039 Project Euler でやれ
コンテスト
ユーザー 37zigen
提出日時 2020-02-27 21:27:35
言語 Java
(openjdk 23)
結果
WA  
実行時間 -
コード長 1,468 bytes
コンパイル時間 2,269 ms
コンパイル使用メモリ 78,104 KB
実行使用メモリ 41,508 KB
最終ジャッジ日時 2024-10-13 16:31:34
合計ジャッジ時間 6,039 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 13 WA * 5
権限があれば一括ダウンロードができます

ソースコード

diff # 

import java.util.ArrayList;
import java.util.Arrays;
import java.util.HashSet;
import java.util.List;
import java.util.Scanner;

class Main {
	public static void main(String[] args) throws Exception {
		new Main().run();
	}
	
	final long MOD=(long)1e9+7;
	
	long pow(long a,long n) {
		long ret=1;
		for(;n>0;n>>=1,a=a*a%MOD)if(n%2==1)ret=ret*a%MOD;
		return ret;
	}
	
	long inv(long a) {
		return pow(a,MOD-2);
	}
	
	long solve(long p,int e) {
		long[][] dp=new long[e+1][e+1];//dp[i][j]:=i個使用済み,p^jまで見た。
		dp[0][0]=1;
		for(int i=0;i<e;++i) {
			for(int j=0;j<=e;++j) {
				if(dp[i][j]==0)continue;
				for(int k=j+1;k<=e;++k) {
					for(int l=1;l<=e;++l) {
						if(i+k*l>e)continue;
						//(Z/p^k)^l
						long add=1;
						for(int m=0;m<l;++m) {
							add*=(pow(p,k*l)-pow(p,l*(k-1)+m))*pow(p,i)%MOD;
							add%=MOD;
						}
						dp[i+k*l][k]+=inv(add)*dp[i][j]%MOD;
						dp[i+k*l][k]%=MOD;
					}
				}
			}
		}
		long ret=0;
		for(int i=1;i<=e;++i)ret=(ret+dp[e][i])%MOD;
		ret=(ret%MOD+MOD)%MOD;
		return ret;
	}
	
	void run() {
		Scanner sc=new Scanner(System.in);
		int M=sc.nextInt();
		long fac=1;
		for(long i=1;i<=M;++i)fac=fac*i%MOD;
		long ans=1;
		for(long div=2;div<=M;++div) {
			int e=0;
			while(M%div==0) {
				M/=div;
				++e;
			}
			if(e>0) ans=ans*solve(div,e)%MOD;
		}
		ans=ans*fac%MOD;
		System.out.println(ans);
	}
	
	static void tr(Object... objects) {
		System.out.println(Arrays.deepToString(objects));
	}
	
}
0