replaced sum[1-4].awk with serial and columnar versions;

minor merge updates between fir_window scripts;

1 files changed, 31 insertions, 0 deletions

diff --git a/sum.awk b/sum.awk
new file mode 100644
index 0000000..d8ebaf8
--- /dev/null
+++ b/sum.awk
@@ -0,0 +1,31 @@
+#!/usr/bin/awk -f

+

+### sum.awk

+# calculate sum of serialized input

+

+

+BEGIN {

+    OFS = FS

+    sign = "[+-]?"

+    decimal = "[0-9]+[.]?[0-9]*"

+    fraction = "[.][0-9]+"

+    exponent = "([Ee]" sign "[0-9]+)?"

+    number = "^" sign "(" decimal "|" fraction ")" exponent "$"

+}

+

+

+NF > 0 {

+    for (n=1; n<=NF; n++) {

+        if ($n ~ number) {

+            count += 1

+            sum += $n

+        }

+    }

+}

+

+

+END {

+    print "sum", "count"

+    print sum, count

+}

+