Cod sursa(job #122245)

Utilizator SofinetiSofineti Mihai Sofineti Data 11 ianuarie 2008 16:23:38
Problema Litere Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<stdio.h>
char a[10000];
long n,i,j,k=0,ok,fr[30];

int main(){

freopen("litere.in","r",stdin);
freopen("litere.out","w",stdout);

scanf("%ld",n);

for(i=0;i<n;i++)
	 {;
	  scanf("%ld",a[i]);
	  fr[a[i]-'a']=fr[a[i]-'a']+1;
	  for(j=0;j<fr[a[i]-'a'];j++)
			 k=k+fr[a[j]-'a'];
	  }

printf("%ld",k-1);
return 0;
}