RosettaCodeData/Task/Letter-frequency/PARI-GP/letter-frequency.pari
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

4 lines
145 B
Text

v=vector(26);
U=readvec("foo.txt");
for(i=1,#U,u=Vecsmall(U[i]);for(j=1,#u,if(u[j]>64&&u[j]<91,v[u[j]-64]++,u[j]>96&&u[j]<123,v[u[j]-96]++)));
v