一本通1651【例 4】古代猪文

1651：【例 4】古代猪文

时间限制: 1000 ms         内存限制: 524288 KB

 

Description

 

“在那山的那边海的那边有一群小肥猪。他们活泼又聪明，他们调皮又灵敏。他们自由自在生活在那绿色的大草坪，他们善良勇敢相互都关心……” ——选自猪王国民歌 很久很久以前，在山的那边海的那边的某片风水宝地曾经存在过一个猪王国。猪王国地理位置偏僻，实施的是适应当时社会的自给自足的庄园经济，很少与外界联系，商贸活动就更少了。因此也很少有其他动物知道这样一个王国。 猪王国虽然不大，但是土地肥沃，屋舍俨然。如果一定要拿什么与之相比的话，那就只能是东晋陶渊明笔下的大家想象中的桃花源了。猪王勤政爱民，猪民安居乐业，邻里和睦相处，国家秩序井然，经济欣欣向荣，社会和谐稳定。和谐的社会带给猪民们对工作火红的热情和对未来的粉色的憧憬。 小猪iPig是猪王国的一个很普通的公民。小猪今年10岁了，在大肥猪学校上小学三年级。和大多数猪一样，他不是很聪明，因此经常遇到很多或者稀奇古怪或者旁人看来轻而易举的事情令他大伤脑筋。小猪后来参加了全猪信息学奥林匹克竞赛(Pig Olympiad in Informatics, POI)，取得了不错的名次，最终保送进入了猪王国大学(Pig Kingdom University, PKU)深造。 现在的小猪已经能用计算机解决简单的问题了，比如能用P++语言编写程序计算出A + B的值。这个“成就”已经成为了他津津乐道的话题。当然，不明真相的同学们也开始对他刮目相看啦~ 小猪的故事就将从此展开，伴随大家两天时间，希望大家能够喜欢小猪。 题目描述 猪王国的文明源远流长，博大精深。 iPig在大肥猪学校图书馆中查阅资料，得知远古时期猪文文字总个数为N。当然，一种语言如果字数很多，字典也相应会很大。当时的猪王国国王考虑到如果修一本字典，规模有可能远远超过康熙字典，花费的猪力、物力将难以估量。故考虑再三没有进行这一项劳猪伤财之举。当然，猪王国的文字后来随着历史变迁逐渐进行了简化，去掉了一些不常用的字。 iPig打算研究古时某个朝代的猪文文字。根据相关文献记载，那个朝代流传的猪文文字恰好为远古时期的k分之一，其中k是N的一个正约数（可以是1和N）。不过具体是哪k分之一，以及k是多少，由于历史过于久远，已经无从考证了。 iPig觉得只要符合文献，每一种能整除N的k都是有可能的。他打算考虑到所有可能的k。显然当k等于某个定值时，该朝的猪文文字个数为N / k。然而从N个文字中保留下N / k个的情况也是相当多的。iPig预计，如果所有可能的k的所有情况数加起来为P的话，那么他研究古代文字的代价将会是G的P次方。 现在他想知道猪王国研究古代文字的代价是多少。由于iPig觉得这个数字可能是天文数字，所以你只需要告诉他答案除以999911659的余数就可以了。

 

Input

 

有且仅有一行：两个数N、G，用一个空格分开。

 

Output

 

有且仅有一行：一个数，表示答案除以999911659的余数。

 

Sample Input

 

4 2

 

Sample Output

 

2048

 

HINT

 

10%的数据中，1 <= N <= 50；
20%的数据中，1 <= N <= 1000；
40%的数据中，1 <= N <= 100000；
100%的数据中，1 <= G <= 1000000000，1 <= N <= 1000000000。

 

Source

 

Sdoi2010 Contest2

 

sol：题目很长长长长长长长长长长长长长长长长长长长长长长长长长长长

题意还好求 ans = ∑C(n,i)%Mod，i 是 n 的因数，然后输出G^ans

如果不用输出G^ans，就是裸的Lucas了

欧拉定理 a^Phi(Mod) = 1 (%Mod)
    因为题目给出的Mod是质数 --> 所以Phi(Mod)=Mod-1

    Mod-1不是质数，不能用普通的Lucas
    把Mod-1分解质因数刚好有4个
    用lucas得到
    T[1] = C(n,m)%P[1]
    T[2] = C(n,m)%P[2]
    T[3] = C(n,m)%P[3]
    T[4] = C(n,m)%P[4]

    可以得到四个方程
    C(n,m)%P[1] = T[1]
    C(n,m)%P[2] = T[2]
    C(n,m)%P[3] = T[3]
    C(n,m)%P[4] = T[4]

    这样就可以解C(n,m)了
    T[1]+P[1]*k1 = C(n,m)
    T[2]+P[2]*k2 = C(n,m)
    T[1]+P[1]*k1 = T[2]+P[2]*k2
    P[1]*k1+P[2]*k2 = T[2]-T[1]

    解出k1,k2
    得到一个特解ans = P[1]*k1+T[1]
    C(n,m)%Lcm(P[1],P[2]) = ans
    继续搞下去就ok了

完结撒花

/*
    欧拉定理 a^Phi(Mod) = 1 (%Mod)
    因为题目给出的Mod是质数 --> 所以Phi(Mod)=Mod-1
    Mod-1不是质数，不能用普通的Lucas
    把Mod-1分解质因数刚好有4个
    用lucas得到
    T[1] = C(n,m)%P[1]
    T[2] = C(n,m)%P[2]
    T[3] = C(n,m)%P[3]
    T[4] = C(n,m)%P[4]
    可以得到四个方程
    C(n,m)%P[1] = T[1]
    C(n,m)%P[2] = T[2]
    C(n,m)%P[3] = T[3]
    C(n,m)%P[4] = T[4]
    这样就可以解C(n,m)了
    T[1]+P[1]*k1 = C(n,m)
    T[2]+P[2]*k2 = C(n,m)
    T[1]+P[1]*k1 = T[2]+P[2]*k2
    P[1]*k1+P[2]*k2 = T[2]-T[1]
    解出k1,k2
    得到一个特解ans = P[1]*k1+T[1]
    C(n,m)%Lcm(P[1],P[2]) = ans
    继续搞下去就ok了
*/
#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
inline ll read()
{
    ll s=0;
    bool f=0;
    char ch=' ';
    while(!isdigit(ch))
    {
        f|=(ch=='-'); ch=getchar();
    }
    while(isdigit(ch))
    {
        s=(s<<3)+(s<<1)+(ch^48); ch=getchar();
    }
    return (f)?(-s):(s);
}
#define R(x) x=read()
inline void write(ll x)
{
    if(x<0)
    {
        putchar('-'); x=-x;
    }
    if(x<10)
    {
        putchar(x+'0');    return;
    }
    write(x/10);
    putchar((x%10)+'0');
    return;
}
#define W(x) write(x),putchar(' ')
#define Wl(x) write(x),putchar('\n')
ll P[5]={0,2,3,4679,35617};
ll prim[5];
ll T[5],Yus[5];
ll n,G;
inline ll Ksm(ll x,ll y,ll Mod)
{
    ll ans=1;
    while(y)
    {
        if(y&1) ans=ans*x%Mod;
        x=x*x%Mod;
        y>>=1;
    }
    return ans;
}
inline ll C(ll n,ll m,ll Mod)
{
    ll i,Jcn=1,Jcm=1;
    for(i=n-m+1;i<=n;i++) Jcn=Jcn*i%Mod;
    for(i=2;i<=m;i++) Jcm=Jcm*i%Mod;
    return Jcn*Ksm(Jcm,Mod-2,Mod)%Mod;
}
inline ll Lucas(ll n,ll m,ll Mod)
{
    ll ans=1;
    while(n&&m)
    {
        ans=ans*C(n%Mod,m%Mod,Mod);
        n/=Mod;
        m/=Mod;
    }
    return ans;
}
inline void Exgcd(ll a,ll b,ll &X,ll &Y)
{
    if(b==0)
    {
        X=1;
        Y=0;
        return;
    }
    Exgcd(b,a%b,X,Y);
    ll XX=X,YY=Y;
    X=YY;
    Y=XX-a/b*YY;
    return;
}
inline ll Solve(ll n,ll m)
{
    memmove(prim,P,sizeof P);
    int i;
    for(i=1;i<=4;i++)
    {
        T[i]=Lucas(n,m,P[i]);
    }
    ll Lcm=prim[1];
    for(i=2;i<=4;i++)
    {
        ll a=prim[i-1],b=prim[i],c=T[i]-T[i-1],r=1,X,Y;
        Exgcd(a,b,X=0,Y=0);
        ll tmp=b/r;
        X=(X*c%tmp+tmp)%tmp;
//        printf("%lld %lld %lld X=%lld Y=%lld\n",a,b,c,X,Y);
        prim[i]=Lcm=Lcm*prim[i];
        T[i]=X*prim[i-1]+T[i-1];
    }
//    printf("%lld %lld %lld\n",n,m,T[4]);
//    exit(0);
    return T[4];
}
int main()
{
    ll Mod=999911659;
    ll i,ans=0;
    R(n); R(G);
    for(i=1;i<=sqrt(n);i++) if(n%i==0)
    {
        ans=(ans+Solve(n,i))%(Mod-1);
        if(i*i!=n) ans=(ans+Solve(n,n/i))%(Mod-1);
    }
    Wl(Ksm(G,ans,Mod));
    return 0;
}
/*
input
4 2
output
2048
*/