integer::n(122)=0;character*80c;do i=1,8;read'(a)',c;do j=1,80;k=ichar(c(j:));n(k)=n(k)+1;enddo;enddo print'(a1":"i3)',((i+j,n(i+j),i=65,90),j=0,32,32);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page