31 lines
436 B
Awk
31 lines
436 B
Awk
#!/usr/bin/gawk -f
|
|
{
|
|
# compute histogram
|
|
histo[$1] += 1;
|
|
};
|
|
|
|
function mode(HIS) {
|
|
# Computes the mode from Histogram A
|
|
max = 0;
|
|
n = 0;
|
|
for (k in HIS) {
|
|
val = HIS[k];
|
|
if (HIS[k] > max) {
|
|
max = HIS[k];
|
|
n = 1;
|
|
List[n] = k;
|
|
} else if (HIS[k] == max) {
|
|
List[++n] = k;
|
|
}
|
|
}
|
|
|
|
for (k=1; k<=n; k++) {
|
|
o = o""OFS""List[k];
|
|
}
|
|
return o;
|
|
}
|
|
|
|
END {
|
|
print mode(histo);
|
|
};
|