Cod sursa(job #170824)

Utilizator MirageRobert Sandu Mirage Data 3 aprilie 2008 12:13:41
Problema Sandokan Scor 40
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.88 kb
#include<stdio.h>
#define N 2000003
int main () {
	freopen("sandokan.in","r",stdin);
	freopen("sandokan.out","w",stdout);
	int n,k,v[5000],i,p=1,j,aprim[5000],bprim[5000],cn,ck,q=0;
	scanf("%d%d",&n,&k);
	for(i=0;i<n;++i)
		scanf("%d",&v[i]);
	k=n-((n/(k-1))*(k-1));
	--n;--k;
	for(i=0;i<=n;++i)
		aprim[i]=bprim[i]=1;
	for(i=2;i<=n;++i)
        if(aprim[i])
            for(j=i+i;j<=n;j+=i)
                aprim[j]=bprim[j]=0;
	cn=n;
	ck=k;
	while(k){
		++q;
		for(i=2;i<=cn&&n!=1;++i)
			while(!(n%i)){
				n/=i;
				++aprim[i];
			}
		for(i=2;i<=ck&&k!=1;++i)
			while(!(k%i)){
				k/=i;
				++bprim[i];
			}
		n=cn-q;
		k=ck-q;
	}
	for(i=2;i<=cn;++i){
		if(bprim[i]>1)
			aprim[i]-=bprim[i];
		if(bprim[i]==1)
			--aprim[i];
	}
	for(i=2;i<=cn;++i)
		while(aprim[i]>=1){
			p=((p%N)*(i%N))%N;
			--aprim[i];
		}
	printf("%d\n",p);
	return 0;
}