pcl_test

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]";
}
复制代码