切糕（bzoj 3144）

Description

Input

第一行是三个正整数P,Q,R，表示切糕的长P、 宽Q、高R。第二行有一个非负整数D，表示光滑性要求。接下来是R个P行Q列的矩阵，第z个 矩阵的第x行第y列是v(x,y,z) (1≤x≤P, 1≤y≤Q, 1≤z≤R)。
100%的数据满足P,Q,R≤40，0≤D≤R，且给出的所有的不和谐值不超过1000。

Output

仅包含一个整数，表示在合法基础上最小的总不和谐值。

Sample Input

2 2 2
1
6 1
6 1
2 6
2
6

Sample Output

6

HINT

最佳切面的f为f(1,1)=f(2,1)=2,f(1,2)=f(2,2)=1

/*
    个人感觉很神的一道题目。
    如果有解的话，会有一个p满足：(10^x-1)/9*8=L*p
                              => 10^x-1=9*L*p/8
    设m=9*L/gcd(L,8)
    则存在p1使得 10^x-1=m*p1
              => 10^x=1(mod m)
    根据欧拉定理 10^φ(m)=1(mod m)
    所以x一定是φ(m)的因数（这好像是某个定理）。
*/
#include<iostream>
#include<cstdio>
#define lon long long
#define N 400010
#ifdef unix
#define LL "%lld"
#else
#define LL "%I64d"
#endif
using namespace std;
int prime[N],f[N],num,qlen;
lon q[N];
void get_prime(){
    for(int i=;i<N;i++){
        if(!f[i]) prime[++num]=i;
        for(int j=;j<=num;j++){
            if(i*prime[j]>=N) break;
            f[i*prime[j]]=;
            if(i%prime[j]==) break;
        }
    }
}
lon gcd(lon a,lon b){
    if(!b) return a;
    return gcd(b,a%b);
}
lon euler(lon x){
    lon res=x;
    for(lon i=;i*i<=x;i++)
        if(x%i==){
            res-=res/i;
            while(x%i==) x/=i;
        }
    if(x>) res-=res/x;
    return res;
}
void get_q(lon n){
    qlen=;
    for(int i=;i<=num&&n>;i++){
        while(n%(lon)prime[i]==){
            n/=prime[i];
            q[++qlen]=prime[i];
        }
    }
    if(n>) q[++qlen]=n;
}
lon mul(lon a,lon b,lon mod){
    lon base=a,r=;
    while(b){
        if(b&) r+=base;r%=mod;
        base+=base;base%=mod;
        b>>=;
    }
    return r;
}
lon poww(lon a,lon b,lon mod){
    lon base=a,r=;
    while(b){
        if(b&) r=mul(r,base,mod);
        base=mul(base,base,mod);
        b>>=;
    }
    return r;
}
int main(){
    int cas=;lon L;get_prime();
    while(scanf(LL,&L)&&L){
        lon m=*L/gcd(L,);
        if(gcd(m,)>){
            printf("Case %d: 0\n",++cas);
            continue;
        }
        lon x=euler(m);get_q(x);
        for(int i=;i<=qlen;i++){
            if(poww(,x/q[i],m)==){
                x/=q[i];
            }
        }
        printf("Case %d: ",++cas);
        printf(LL,x);printf("\n");
    }
    return ;
}