Cod sursa(job #1238154)

Utilizator Darius15Darius Pop Darius15 Data 5 octombrie 2014 19:50:58
Problema Al k-lea termen Fibonacci Scor 100
Compilator cpp Status done
Runda Arhiva educationala Marime 0.88 kb
#include <fstream>

using namespace std;
ifstream f("kfib.in");
ofstream g("kfib.out");
struct MAT{long long a[3][3];};
MAT a,b,c,fa,e;
int i,j,d,v[40],o,k,z;
void prod(MAT a,MAT b,MAT &c)
{
    int i,j,z;
    for (i=1;i<=2;i++)
    {
        for (j=1;j<=2;j++){
            c.a[i][j]=0;
             for (z=1;z<=2;z++)
             c.a[i][j]+=a.a[i][z]*b.a[z][j],c.a[i][j]=c.a[i][j]%666013;
        }
    }
}
int main()
{
    f>>k;
    if (k>=1)
    {
    d=k-1;
    a.a[1][1]=a.a[1][2]=a.a[2][1]=1;
    o=-1;
    while(d>=1)
    {
        v[++o]=d%2;
        d=d/2;
    }
    e.a[1][1]=e.a[2][2]=1;
    for (i=0;i<=o;i++)
    if (v[i]==1)
    {
        fa=a;
        for (j=1;j<=i;j++)
        {
           prod(fa,fa,b);
           fa=b;
        }
        prod(e,fa,b);
        e=b;
    }
    g<<e.a[1][1];
    }
    else g<<0;
    return 0;
}