Cod sursa(job #380201)

Utilizator borsoszalanBorsos Zalan borsoszalan Data 5 ianuarie 2010 08:39:18
Problema Al k-lea termen Fibonacci Scor 100
Compilator cpp Status done
Runda Arhiva educationala Marime 0.96 kb
#include <stdio.h>
#include <string.h>
#define mod 666013

int N, i;
int MAT[3][3], SOL[3][3];

void zero(int x[][3])
{
	for(int i=0;i<2;i++)
		for(int j=0;j<2;j++)
			x[i][j]=0;
}

inline void mult(int A[][3], int B[][3], int C[][3]) {
	int i, j, k;
	for (i = 0; i < 2; i++)
		for (j = 0; j < 2; j++)
			for (k = 0; k < 2; k++) 
				C[i][j] = (C[i][j] + 1LL * A[i][k] * B[k][j]) % mod;
		}

inline void lg_power(int P, int M[][3]) {
	int C[3][3], AUX[3][3], i;
	
	memcpy(C, MAT, sizeof(MAT));
	M[0][0] = M[1][1] = 1;

	for (i = 0; (1 << i) <= P; i++) {
		if (P & (1 << i)) {
			zero(AUX);
			mult(M, C, AUX);
			memcpy(M, AUX, sizeof(AUX));
		}

		zero(AUX);
		mult(C, C, AUX);
		memcpy(C, AUX, sizeof(C));
	}
}

int main() {
	freopen("kfib.in", "r", stdin);
	freopen("kfib.out", "w", stdout);
	scanf("%d", &N);
	MAT[0][0] = 0; MAT[0][1] = 1; MAT[1][0] = 1; MAT[1][1] = 1;
	lg_power(N - 1, SOL);
	printf("%d\n", SOL[1][1]);
	return 0;
}