RosettaCodeData/Task/Letter-frequency/PARI-GP/letter-frequency.parigp
2023-07-01 13:44:08 -04: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