From 4916e9b13765de970deff094abb3eb50c663834a Mon Sep 17 00:00:00 2001
From: wukong <wukong@longaeva>
Date: Sat, 16 Jun 2018 23:38:02 -0700
Subject: bumped up number of printed digits

---
 sum4.awk | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'sum4.awk')

diff --git a/sum4.awk b/sum4.awk
index 518f6e5..f9037da 100644
--- a/sum4.awk
+++ b/sum4.awk
@@ -5,6 +5,7 @@
 # output:   sums of numeric columns
 
 function isnum(n) {
+    OFMT = "%.18g"
     sign = "[+-]?"
     decimal = "[0-9]+[.]?[0-9]*"
     fraction = "[.][0-9]+"
@@ -16,8 +17,7 @@ function isnum(n) {
 NR==1 {
     nf_max = NF
     for (i=1; i<=NF; i++) {
-        if (!isnum($i))
-            header[i] = $i
+        (!isnum($i)) ? header[i] = $i : header[i] = "col" i
     }
 }
 
@@ -32,7 +32,7 @@ END {
     for (i=1; i<=nf_max; i++) {
         if (header[i])
             printf("%s: \t", header[i])
-        printf("%g\n", sum[i])
-        printf(i < nf_max ? "" : "\n")
+        printf("%.18g\n", sum[i])
+        printf(i < nf_max ? "" : OFS )
     }
 }
-- 
cgit v1.2.3