20 lines
298 B
Awk
20 lines
298 B
Awk
|
function hn(x) {
|
||
|
|
gsub(",", ".", x);
|
||
|
|
return x+0
|
||
|
|
}
|
||
|
|
|
||
|
|
function ihn(x) {
|
||
|
|
gsub("\\.", ",", x);
|
||
|
|
return x
|
||
|
|
}
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
getline;
|
||
|
|
for(i=1; i<=NF; ++i) saved[i]=$i;
|
||
|
|
print $0
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
for(i=1; i<=NF; ++i) if(i == 1) printf "%s%s", $i, OFS; else printf "%s%s", ihn(hn($i)/hn(saved[i])), (i==NF ? ORS : OFS)
|
||
|
|
}
|