結果

問題 No.2326 Factorial to the Power of Factorial to the...
ユーザー えいる
提出日時 2023-05-28 14:11:54
言語 C++14
(gcc 13.3.0 + boost 1.87.0)
結果
AC  
実行時間 4 ms / 2,000 ms
コード長 1,223 bytes
コンパイル時間 5,034 ms
コンパイル使用メモリ 228,340 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-12-26 23:56:40
合計ジャッジ時間 5,047 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 20
権限があれば一括ダウンロードができます

ソースコード

diff # 

#include <bits/stdc++.h>
using namespace std;
using ll=long long;
using vl=vector<long long>;
using vvl=vector<vector<long long>>;
using vvvl=vector<vector<vector<long long>>>;
using pl=pair<long long,long long>;
using vpl=vector<pair<long long,long long>>;
#define fi first
#define se second
#define all(x) (x).begin(),(x).end()
#define _overload3(_1,_2,_3,name,...) name
#define _rep(i,n) repi(i,0,n)
#define repi(i,a,b) for(long long i=(long long)(a);i<(long long)(b);++i)
#define rep(...) _overload3(__VA_ARGS__,repi,_rep,)(__VA_ARGS__)
#define pb push_back
#define lb lower_bound
#define ub upper_bound
#include <atcoder/all>
using namespace atcoder;

long long modpow(long long a, long long n, long long mo){long long res=1;while(n>0){if(n&1){res=res*a%mo;}a=a*a%mo;n>>=1;}return res;}
long long Pow(long long a, long long n){long long res=1;while(n>0){if(n&1){res=res*a;}a=a*a;n>>=1;}return res;}

const ll MOD=998244353;
const ll MOD2=1000000007;
const ll INF=(1ll<<60);
int main(){
  ll N,P;
  cin>>N>>P;
  ll co=0;
  ll nN=N;
  while(nN>0){
    co+=nN/P;
    nN/=P;
  }
  ll wr=1;
  ll ks=1;
  rep(i,1,N+1){
    wr=(wr*i)%MOD2;
    ks=(ks*i)%(MOD2-1);
  }
  ll nd=modpow(wr,ks,MOD2);
  cout<<(co*nd)%MOD2<<endl;
}
0