SGU 294 He's Circles (polay计数)

题目链接：http://acm.sgu.ru/problem.php?contest=0&problem=294

题意：一个项链有n个珠子，每个珠子为黑色或白色。问有多少种不同的项链？

思路：基本的polay计数，只不过数比较大，除了高精度外一个优化在于，不是依次计算Gcd(n,i)(1<=i<=n)，而是直接枚举L=n/i，这样求出L的欧拉函数K，则答案为sigama(2^i*K)/n。

#include <iostream>
#include <cstdio>
#include <string.h>
#include <algorithm>
#include <cmath>
#include <vector>
#include <queue>
#include <set>
#include <stack>
#include <string>
#include <map>


#define max(x,y) ((x)>(y)?(x):(y))
#define min(x,y) ((x)<(y)?(x):(y))
#define abs(x) ((x)>=0?(x):-(x))
#define i64 long long
#define u32 unsigned int
#define u64 unsigned long long
#define clr(x,y) memset(x,y,sizeof(x))
#define CLR(x) x.clear()
#define ph(x) push(x)
#define pb(x) push_back(x)
#define Len(x) x.length()
#define SZ(x) x.size()
#define PI acos(-1.0)
#define sqr(x) ((x)*(x))

#define FOR0(i,x) for(i=0;i<x;i++)
#define FOR1(i,x) for(i=1;i<=x;i++)
#define FOR(i,a,b) for(i=a;i<=b;i++)
#define DOW0(i,x) for(i=x;i>=0;i--)
#define DOW1(i,x) for(i=x;i>=1;i--)
#define DOW(i,a,b) for(i=a;i>=b;i--)
using namespace std;


void RD(int &x){scanf("%d",&x);}
void RD(i64 &x){scanf("%lld",&x);}
void RD(u32 &x){scanf("%u",&x);}
void RD(u64 &x){scanf("%llu",&x);}
void RD(double &x){scanf("%lf",&x);}
void RD(int &x,int &y){scanf("%d%d",&x,&y);}
void RD(i64 &x,i64 &y){scanf("%lld%lld",&x,&y);}
void RD(u32 &x,u32 &y){scanf("%u%u",&x,&y);}
void RD(double &x,double &y){scanf("%lf%lf",&x,&y);}
void RD(int &x,int &y,int &z){scanf("%d%d%d",&x,&y,&z);}
void RD(i64 &x,i64 &y,i64 &z){scanf("%I64d%I64d%I64d",&x,&y,&z);}
void RD(u32 &x,u32 &y,u32 &z){scanf("%u%u%u",&x,&y,&z);}
void RD(double &x,double &y,double &z){scanf("%lf%lf%lf",&x,&y,&z);}
void RD(char &x){x=getchar();}
void RD(char *s){scanf("%s",s);}
void RD(string &s){cin>>s;}


void PR(int x) {printf("%d\n",x);}
void PR(i64 x) {printf("%lld\n",x);}
void PR(u32 x) {printf("%u\n",x);}
void PR(double x) {printf("%.4lf\n",x);}
void PR(char x) {printf("%c\n",x);}
void PR(char *x) {printf("%s\n",x);}
void PR(string x) {cout<<x<<endl;}

const i64 MOD=10000000;
 class BigNum
 {
 public:
     i64 a[10000];
 public:
     BigNum operator+(BigNum temp)
     {
         BigNum ans;
         i64 i,j,k,p;
         if(a[0]>temp.a[0]) p=a[0];
         else p=temp.a[0];
         for(i=a[0],j=temp.a[0],k=p;j>=1&&i>=1;i--,j--,k--)
             ans.a[k]=a[i]+temp.a[j];
         if(j==0)
         {
             while(i>=1) ans.a[i]=a[i--];
         }
         else
         {
             while(j>=1) ans.a[j]=temp.a[j--];
         }
         ans.a[0]=0;
         for(i=p;i>=1;i--)
         {
             ans.a[i-1]+=ans.a[i]/MOD;
             ans.a[i]%=MOD;
         }
         if(ans.a[0])
         {
             for(i=p+1;i>=1;i--) ans.a[i]=ans.a[i-1];
             ans.a[0]=p+1;
         }
         else ans.a[0]=p;
         return ans;
     }

     BigNum operator-(BigNum temp)
     {
         BigNum ans;
         int i,j;
         for(i=0;i<=a[0];i++) ans.a[i]=a[i];
         for(i=ans.a[0],j=temp.a[0];i>=1&&j>=1;i--,j--)
             ans.a[i]-=temp.a[j];
         for(i=ans.a[0];i>=1;i--) if(ans.a[i]<0)
         {
             ans.a[i]+=MOD;
             ans.a[i-1]--;
         }
         for(i=1;i<=a[0];i++) if(ans.a[i]) break;
         if(i>a[0])
         {
             ans.a[0]=1;
             ans.a[1]=0;
             return ans;
         }
         for(j=i;j<=a[0];j++) ans.a[j+1-i]=ans.a[j];
         ans.a[0]=a[0]-i+1;
         return ans;
     }

     BigNum operator*(BigNum temp)
     {
         BigNum ans;
         int i,j,p=a[0]+temp.a[0]-1;
         memset(ans.a,0,sizeof(ans.a));
         for(i=a[0];i>=1;i--) for(j=temp.a[0];j>=1;j--)
             ans.a[i+j-1]+=a[i]*temp.a[j];
         ans.a[0]=0;
         for(i=p;i>=1;i--)
         {
             ans.a[i-1]+=ans.a[i]/MOD;
             ans.a[i]%=MOD;
         }
         if(ans.a[0])
         {
             for(i=p;i>=0;i--) ans.a[i+1]=ans.a[i];
             ans.a[0]=p+1;
         }
         else ans.a[0]=p;
         return ans;
     }

     BigNum operator*(int temp)
     {
         BigNum ans;
         int i;
         for(i=1;i<=a[0];i++) ans.a[i]=a[i]*temp;
         ans.a[0]=0;
         for(i=a[0];i>=1;i--)
         {
             ans.a[i-1]+=ans.a[i]/MOD;
             ans.a[i]%=MOD;
         }
         if(ans.a[0])
         {
             for(i=a[0];i>=0;i--) ans.a[i+1]=ans.a[i];
             ans.a[0]=a[0]+1;
         }
         else ans.a[0]=a[0];
         if(ans.a[1]>=MOD)
         {
             for(i=ans.a[0];i>=0;i--) ans.a[i+1]=ans.a[i];
             ans.a[0]++;
         }
         return ans;
     }

     BigNum operator/(int x)
     {
         BigNum ans;
         int i,j;
         i64 p;
         for(i=1;i<=a[0];i++)
         {
             if(i==1)
             {
                 ans.a[i]=a[i]/x;
                 p=a[i]%x;
             }
             else
             {
                 ans.a[i]=(p*MOD+a[i])/x;
                 p=(p*MOD+a[i])%x;
             }
         }
         for(i=1;i<=a[0];i++) if(ans.a[i]) break;
         if(i>a[0])
         {
             ans.a[0]=1;
             ans.a[1]=0;
             return ans;
         }
         for(j=i;j<=a[0];j++) ans.a[j+1-i]=ans.a[j];
         ans.a[0]=a[0]-i+1;
         return ans;
     }

     BigNum operator/(BigNum temp)
     {
         BigNum ans,t;
         BigNum low=BigNum(1),high,mid;
         int i;
         for(i=1;i<=a[0];i++) t.a[i]=high.a[i]=a[i];
         t.a[0]=high.a[0]=a[0];
         while(!(low>high))
         {
             mid=(low+high)/2;
             if(mid*temp>t) high=mid-BigNum(1);
             else low=mid+BigNum(1);
         }
         if(!(low>t)&&!(temp*low>t)) return low;
         return high;
     }

     BigNum operator%(BigNum temp)
     {
         int i;
         BigNum t;
         for(i=1;i<=a[0];i++) t.a[i]=a[i];
         t.a[0]=a[0];
         return t-t/temp*temp;
     }

     BigNum power(int n)
     {
         BigNum ans=BigNum(1),temp=*this;
         while(n)
         {
             if(n&1) ans=ans*temp;
             temp=temp*temp;
             n>>=1;
         }
         return ans;
     }
 public:
     BigNum()
     {
         a[0]=1;
         a[1]=0;
     }

     BigNum(int x)
     {
         if(x>=MOD) a[0]=2,a[1]=x/MOD,a[2]=x%MOD;
         else a[0]=1,a[1]=x;
     }

     BigNum(i64 x)
     {
         stack<i64> s;
         while(x)
         {
             s.push(x%MOD);
             x/=MOD;
         }
         a[0]=s.size();
         int k=0;
         while(!s.empty())
         {
             a[++k]=s.top();
             s.pop();
         }
     }

     BigNum(string str)
     {
         int i;
         for(i=0;i<str.length();i++) if(str[i]!='0') break;
         if(i==str.length())
         {
             a[0]=1;
             a[1]=0;
             return;
         }
         str=str.substr(i,str.length()-i);
         int p=str.length()%7,j;
         i64 k;
         a[0]=0;
         if(p)
         {
             a[0]=1;
             k=0;
             for(i=0;i<p;i++) k=k*10+str[i]-'0';
             a[1]=k;
             str=str.substr(p,str.length()-p);
         }
         for(i=0;i<str.length();)
         {
             k=0;
             for(j=i;j<i+7;j++) k=k*10+str[j]-'0';
             a[++a[0]]=k;
             i=j;
         }
     }

     int operator==(BigNum temp)
     {
         if(a[0]!=temp.a[0]) return 0;
         for(int i=1;i<=a[0];i++) if(a[i]!=temp.a[i]) return 0;
         return 1;
     }

     int operator>(BigNum temp)
     {
         if(a[0]>temp.a[0]) return 1;
         if(a[0]<temp.a[0]) return 0;
         for(int i=1;i<=a[0];i++) if(a[i]!=temp.a[i]) return a[i]>temp.a[i];
         return 0;
     }

     void print()
     {
         int i=1;
         while(i<=a[0]&&a[i]==0) i++;
         if(i>a[0])
         {
             puts("0");
             return;
         }
         printf("%lld",a[i++]);
         while(i<=a[0]) printf("%07lld",a[i++]);
     }
 };


int n;
vector<int> V;
BigNum ans;

int cal(int n)
{
    int i;
    for(i=0;i<SZ(V)&&V[i]<=n;i++) if(n%V[i]==0) n=n/V[i]*(V[i]-1);
    return n;
}

int main()
{
    RD(n);
    int i,k=n;
    for(i=2;i*i<=k;i++) if(k%i==0)
    {
        V.pb(i);
        while(k%i==0) k/=i;
    }
    if(k>1) V.pb(k);
    for(i=1;i<=n;i++) if(n%i==0)
    {
        k=cal(n/i);
        ans=ans+BigNum(2).power(i)*k;
    }
    ans=ans/n;
    ans.print();
    puts("");
    return 0;
}