From 6ff1fc477e92897177cb4cebdaa21fa41a41c0a4 Mon Sep 17 00:00:00 2001
From: wukong <wukong@longaeva>
Date: Tue, 5 May 2026 11:15:46 -0700
Subject: removed extra versions of diff and lin_reg;

---
 diff1.awk | 54 ------------------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 diff1.awk

(limited to 'diff1.awk')

diff --git a/diff1.awk b/diff1.awk
deleted file mode 100644
index a6bf6ec..0000000
--- a/diff1.awk
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/awk -f
-
-### diff1.awk
-# print numerical diff along columns
-
-
-BEGIN {
-    OFS = FS
-    sign = "[+-]?"
-    decimal = "[0-9]+[.]?[0-9]*"
-    fraction = "[.][0-9]*"
-    exponent = "([Ee]" sign "[0-9]+)?"
-    number = "^" sign "(" decimal "|" fraction ")" exponent "$"
-}
-
-
-# column headers
-NR == 1 {
-    # orig data columns
-    for (n=1; n<=NF; n++) {
-        if ($n !~ number) {
-            header[n] = $n
-            dheader[n] = "d" $n
-        }
-        else {
-            header[n] = "col" n
-            dheader[n] = "dcol" n
-        }
-        printf(dheader[n])
-        printf(n < NF ? OFS : ORS)
-    }
-}
-
-
-NF > 0 {
-    (NF > nf_max) ? nf_max = NF : nf_max = nf_max
-
-    # data columns
-    for (n=1; n<=nf_max; n++) {
-        if ($n == header[n] || $n == dheader[n])
-            continue
-        if ($n ~ number) {
-            data[n] = $n
-            if (data_prev[n] ~ number)
-                diff[n] = data[n] - data_prev[n]
-            else
-                diff[n] = ""
-            data_prev[n] = data[n]
-        }
-        printf(diff[n])
-        printf(n < nf_max ? OFS : ORS)
-    }
-}
-
-- 
cgit v1.2.3