Add mean(1df), med(1df), and mode(1df)

1 files changed, 19 insertions, 0 deletions

diff --git a/bin/med.awk b/bin/med.awk
new file mode 100644
index 00000000..b4a899a1
--- /dev/null
+++ b/bin/med.awk
@@ -0,0 +1,19 @@
+# Get the median of a list of integers; if it has to average it, it uses the
+# integer floor of the result
+{ vals[NR] = $1 }
+NR > 1 && vals[NR] < vals[NR-1] && !warn++ {
+    printf "med: Input not sorted!\n" > "/dev/stderr"
+}
+END {
+    # Error out if we read no values at all
+    if (!NR)
+        exit(1)
+    if (NR % 2) {
+        med = vals[(NR+1)/2]
+    } else {
+        med = (vals[NR/2] + vals[NR/2+1]) / 2
+    }
+    printf "%u\n", med
+    if (warn)
+        exit(1)
+}