Cod sursa(job #110012)

Utilizator szzeretlekxyz abcd szzeretlek Data 25 noiembrie 2007 15:52:29
Problema Pairs Scor 20
Compilator c Status done
Runda Arhiva de probleme Marime 0.69 kb
#include <stdio.h>
#include <stdlib.h>


int M;
//int *set;

int* read_data(){
	int i;
	int *set;
	FILE *f = fopen("pairs.in","r");
	
	fscanf(f,"%d\n",&M);

	set = (int*)malloc(M*sizeof(int));
	
	for(i = 0;i < M; i++)
		fscanf(f,"%d",&set[i]);
	return set;
}

int gcd(int m, int n) {
	int r;
	if (m < n) {
		int t = m;
		m = n;
		n = t;
	}
	r = m % n;
	if (r == 0) {
		return n;
	} else {
		return gcd(n, r);
	}
}

int main(){
	int i,j;
	int co_primes = 0;
	int* set = read_data();
	FILE *out = fopen("pairs.out","w");
	for(i = 0;i < M; i++)
		for(j = i + 1;j < M; j++)
			if(gcd(set[i],set[j]) == 1)
				co_primes++;
	fprintf(out,"%d",co_primes);
	return 0;
}