Cod sursa(job #265238)

Utilizator GavrilaVladGavrila Vlad GavrilaVlad Data 23 februarie 2009 17:19:19
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.38 kb
#include <stdio.h>
#include <math.h>

#define maxn 10010
#define maxnr 1000010

using namespace std;

long n, i, j, k, m, l, ndp, r, nr, nrb, pr, sum, sol, d;
long v[maxn], dp[maxn], f[maxnr];

int main()
{
    freopen("pairs.in", "r", stdin);
    freopen("pairs.out", "w", stdout);
    scanf("%d\n", &n);
    sol=0;
    for(i=1; i<=n; i++)
    {
        sum=i-1;
        scanf("%d", &v[i]);
        d=1;
        nr=0;
        r = (long)sqrt(v[i]);
        while(v[i]>1 && d<=r)
        {
            d++;
            if(v[i] % d==0)
            {
                nr++;
                dp[nr]=d;
                while(v[i] % d == 0)
                {
                    v[i]/=d;
                }
            }
        }
        if(v[i]>1)
        {
            nr++;
            dp[nr]=v[i];
        }
        for(j=1; j<(1<<nr); j++)
        {
            nrb=0;
            pr=1;
            for(l=0; l<nr; l++)
            {
                if( (j>>1) & 1)
                {
                    nrb++;
                    pr*=f[l+1];
                }
            }
            if(nrb%2==0)
            {
                sum-=pr;
            }
            else
            {
                sum+=pr;
            }
            f[pr]++;
        }
        sol+=sum;           
                
    }
    printf("%d\n", sol);
    return 0;
}