30 lines
348 B
Awk
30 lines
348 B
Awk
function abs(n){
|
|
return (n>=0) ? n : -n
|
|
}
|
|
|
|
BEGIN{
|
|
RS=","
|
|
}
|
|
{
|
|
c[NR] = $1
|
|
}
|
|
|
|
END{
|
|
maxpos=0
|
|
for(i=1;i<=NR;i++) if(maxpos<c[i]) maxpos=c[i]
|
|
|
|
min = 1000000
|
|
for(i=1;i<=maxpos;i++){
|
|
difs = 0
|
|
for(j=1;j<=NR;j++){
|
|
difs += abs(c[j]-i)
|
|
}
|
|
if(difs<min){
|
|
min = difs
|
|
cmin = c[i]
|
|
}
|
|
# print c[i], difs
|
|
}
|
|
print "min", min, "cmin", cmin
|
|
}
|