Cod sursa(job #7012)

Utilizator C_OvidiuCotletz Ovidiu C_Ovidiu Data 21 ianuarie 2007 11:47:08
Problema Triplete Scor 40
Compilator cpp Status done
Runda preONI 2007, Runda 1, Clasa a 10-a Marime 0.49 kb
#include<fstream.h>
char apartine[3900][3900];
int mat[65537][2],a,b,n;
int long m,nr,i,j;
int main()
{ifstream f("triplete.in");
 f>>n>>m;
 for(i=1;i<=m;i++)
  {f>>a>>b;
   if(a<b)
	  {apartine[a][b]=1;
	  mat[i][1]=a;
	  mat[i][0]=b;}
   else
	 {mat[i][0]=a;
	 mat[i][1]=b;
	 apartine[b][a]=1;

	 }
	}
for(i=1;i<=m;i++)
  {for(j=1;j<=mat[i][1];j++)
	if(apartine[j][mat[i][1]]&&apartine[j][mat[i][0]])
	  nr++;
   }
ofstream g("triplete.out");
g<<nr;
g.close();
return 0;
}