結果
問題 | No.125 悪の花弁 |
ユーザー |
![]() |
提出日時 | 2019-03-30 19:08:39 |
言語 | C++17 (gcc 13.3.0 + boost 1.87.0) |
結果 |
AC
|
実行時間 | 76 ms / 5,000 ms |
コード長 | 4,647 bytes |
コンパイル時間 | 2,426 ms |
コンパイル使用メモリ | 203,096 KB |
最終ジャッジ日時 | 2025-01-07 00:39:57 |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 6 |
ソースコード
#include<bits/stdc++.h>using namespace std;using Int = long long;template<typename T1,typename T2> inline void chmin(T1 &a,T2 b){if(a>b) a=b;}template<typename T1,typename T2> inline void chmax(T1 &a,T2 b){if(a<b) a=b;}template<typename T,T MOD = 1000000007>struct Mint{T v;Mint():v(0){}Mint(signed v):v(v){}Mint(long long t){v=t%MOD;if(v<0) v+=MOD;}Mint pow(long long k){Mint res(1),tmp(v);while(k){if(k&1) res*=tmp;tmp*=tmp;k>>=1;}return res;}Mint inv(){return pow(MOD-2);}Mint& operator+=(Mint a){v+=a.v;if(v>=MOD)v-=MOD;return *this;}Mint& operator-=(Mint a){v+=MOD-a.v;if(v>=MOD)v-=MOD;return *this;}Mint& operator*=(Mint a){v=1LL*v*a.v%MOD;return *this;}Mint& operator/=(Mint a){return (*this)*=a.inv();}Mint operator+(Mint a) const{return Mint(v)+=a;};Mint operator-(Mint a) const{return Mint(v)-=a;};Mint operator*(Mint a) const{return Mint(v)*=a;};Mint operator/(Mint a) const{return Mint(v)/=a;};Mint operator-(){return v?MOD-v:v;}bool operator==(const Mint a)const{return v==a.v;}bool operator!=(const Mint a)const{return v!=a.v;}bool operator <(const Mint a)const{return v <a.v;}// find x s.t. a^x = bstatic T log(Mint a,Mint b){const T sq=40000;unordered_map<T, T> dp;dp.reserve(sq);Mint res(1);for(int r=0;r<sq;r++){if(!dp.count(res)) dp[res]=r;res*=a;}Mint p=pow(a.inv(),sq);res=b;for(int q=0;q<=MOD/sq+1;q++){if(dp.count(res)){T idx=q*sq+dp[res];if(idx>0) return idx;}res*=p;}return T(-1);}static vector<Mint> fact,finv,invs;static void init(int n){int m=fact.size();if(n<m) return;fact.resize(n+1,1);finv.resize(n+1,1);invs.resize(n+1,1);if(m==0) m=1;for(int i=m;i<=n;i++) fact[i]=fact[i-1]*Mint(i);finv[n]=Mint(1)/fact[n];for(int i=n;i>=m;i--) finv[i-1]=finv[i]*Mint(i);for(int i=m;i<=n;i++) invs[i]=finv[i]*fact[i-1];}static Mint comb(long long n,int k){Mint res(1);for(int i=0;i<k;i++){res*=Mint(n-i);res/=Mint(i+1);}return res;}static Mint C(int n,int k){if(n<k||k<0) return Mint(0);init(n);return fact[n]*finv[n-k]*finv[k];}static Mint P(int n,int k){if(n<k||k<0) return Mint(0);init(n);return fact[n]*finv[n-k];}static Mint H(int n,int k){if(n<0||k<0) return Mint(0);if(!n&&!k) return Mint(1);init(n+k-1);return C(n+k-1,k);}static Mint S(int n,int k){Mint res;init(k);for(int i=1;i<=k;i++){Mint tmp=C(k,i)*Mint(i).pow(n);if((k-i)&1) res-=tmp;else res+=tmp;}return res*=finv[k];}static vector<vector<Mint> > D(int n,int m){vector<vector<Mint> > dp(n+1,vector<Mint>(m+1,0));dp[0][0]=Mint(1);for(int i=0;i<=n;i++){for(int j=1;j<=m;j++){if(i-j>=0) dp[i][j]=dp[i][j-1]+dp[i-j][j];else dp[i][j]=dp[i][j-1];}}return dp;}static Mint B(int n,int k){Mint res;for(int j=1;j<=k;j++) res+=S(n,j);return res;}static Mint montmort(int n){Mint res;init(n);for(int k=2;k<=n;k++){if(k&1) res-=finv[k];else res+=finv[k];}return res*=fact[n];}static Mint LagrangePolynomial(vector<Mint> &y,Mint t){int n=y.size()-1;if(t.v<=n) return y[t.v];init(n+1);Mint num(1);for(int i=0;i<=n;i++) num*=t-Mint(i);Mint res;for(int i=0;i<=n;i++){Mint tmp=y[i]*num/(t-Mint(i))*finv[i]*finv[n-i];if((n-i)&1) res-=tmp;else res+=tmp;}return res;}};template<typename T,T MOD>vector<Mint<T, MOD> > Mint<T, MOD>::fact = vector<Mint<T, MOD> >();template<typename T,T MOD>vector<Mint<T, MOD> > Mint<T, MOD>::finv = vector<Mint<T, MOD> >();template<typename T,T MOD>vector<Mint<T, MOD> > Mint<T, MOD>::invs = vector<Mint<T, MOD> >();//INSERT ABOVE HEREsigned main(){int n;cin>>n;vector<int> c(n);for(int i=0;i<n;i++) cin>>c[i];int g=c[0],s=0;for(int i=0;i<n;i++){g=__gcd(g,c[i]);s=s+c[i];}vector<int> vs;for(int i=1;i<=s;i++)if(s%i==0) vs.emplace_back(i);using M = Mint<int>;M::init(s*2);M ans=0;vector<M> dp(s+1,0);for(int t=1;t<=s;t++){if(s%t) continue;int r=s/t;if(g%r) continue;M &res=dp[t];res=M::fact[t];for(int i=0;i<n;i++) res*=M::finv[c[i]/r];for(int v:vs)if(v<t&&t%v==0) res-=dp[v];ans+=res*M::invs[t];}cout<<ans.v<<endl;return 0;}