——————————————————————————————————
#sum3 - print sum3 of numeric and columns
# input: rows of intergers and strings
# output: sums of numeric columns
NR == 1 {
nfld = NF
for (i=1; i<NF; i++)
numcol[i] = isnum($i)
}
{
for (i=1; i<NF; i++)
if(numcol[i])
sum[i] += $i;
}
END {
for (i=1; i<nfld; i++)
if(numcol[i])
printf("%g", sum[i])
else
printf("--")
printf(i<nfld ? "\t" : "\n")
}
}
function isnum(n) {return n ~ /^[+-]?[0-9]+$/}