gawk- #*&cls&gawk -f "%~f0"&pause&exit
-
- BEGIN{
- str="abcdefghijklmnopqrstuvwxyz...abcdefghijklmnopqrstuvwxyz"
- t1=systime();
- c=0;
- while(c!=""){
- i++;
- c=substr(str,i,1);
- a[c]++;
- }
- t2=systime();
- t=t2-t1;
- for(i=asorti(a,b);i>0;i--){if(b[i]!="")s=",'"b[i]"':"a[b[i]]""s};
- print "{"substr(s,2)"}\nin["t"s]";
- }
复制代码
|