From b60f09401a15721f626bcb7c852f68b82fe39c1c Mon Sep 17 00:00:00 2001
From: wukong <wukong@longaeva>
Date: Sun, 3 May 2026 13:10:31 -0700
Subject: replaced sum[1-4].awk with serial and columnar versions; minor merge
 updates between fir_window scripts;

---
 sum1.awk | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100644 sum1.awk

(limited to 'sum1.awk')

diff --git a/sum1.awk b/sum1.awk
deleted file mode 100644
index 9266789..0000000
--- a/sum1.awk
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/awk -f
-
-### sum1.awk, print column sums
-# input: rows of numbers
-# output: sum of each column
-#   missing entries are treated as zeros
-
-
-function isnum(n) {
-    sign = "[+-]?"
-    decimal = "[0-9]+[.]?[0-9]*"
-    fraction = "[.][0-9]+"
-    exponent = "([Ee]" sign "[0-9]+)?"
-    number = "^" sign "(" decimal "|" fraction ")" exponent "$"
-    return n ~ number
-}
-
-
-BEGIN {
-    OFS = FS
-}
-
-
-NR == 1 {
-    for (i=1; i<=NF; i++)
-        isnum($i) ? header[i] = "col" i : header[i] = $i
-}
-
-
-NF > 0 {
-    (NF > nf_max) ? nf_max = NF : nf_max = nf_max
-    for (i=1; i<=NF; i++)
-        sum[i] += $i
-}
-
-
-END {
-    for (i=1; i<=nf_max; i++) {
-        printf(OFMT, sum[i])
-        printf((i < nf_max) ? OFS : ORS)
-    }
-}
-
-- 
cgit v1.2.3