pcl_test

#*&cls&gawk -f "%~f0"&pause&exit
 
BEGIN{
    str="3,30,34,5,9"
    split(str,a,",");
    if(length(a)==1){
        print a[1];
    }else{
        if(str~/^[0,]*$/){
            print 0;
        }else{
            for(i=1;i<=length(a);i++){
                if(a[i]~/^0+[1-9][0-9]*$/){
                    sub(/^0+/,"",a[i]);
                }else{
                    if(a[i]~/^0+$/)sub(/0+/,"0",a[i]);
                }
                t=a[i];
                j=i-1;
                while(j>=1&&(!comp(a[j],t))){
                    a[j+1]=a[j];
                    j--;
                }
                a[j+1]=t;
            }
            for(i=1;i<=length(a);i++)s=s""a[i];
            print s;
        }
    }
}
function comp(a,b){return (a""b)*1>(b""a)*1?1:0;}COPY