Data update

Task/CSV-data-manipulation/M2000-Interpreter/csv-data-manipulation.m2000

@@ -1,6 +1,7 @@
+Locale 1032
 Module Checkit {
       Function Sum {
-            Long c=0
+            DECIMAL c=0
             while not empty {
                   c+=number
             }
@@ -8,7 +9,7 @@ Module Checkit {
       }
       Document CSV$ = {C1,C2,C3,C4,C5
             1,5,9,13,17
-            2,6,10,14,18
+            2,6,10.3,14,18
             3,7,11,15,19
             4,8,12,16,20
       }
@@ -19,13 +20,13 @@ Module Checkit {
       \\ use standard decimal point char
       \\ use standard (non json style string)
       \\ True = use bare strings (without "")
-      Input With "",,,true
-      Write With"",,,true
+      Input With "","",,true
+      Write With chr$(9),locale$(0xE),,true
       \\ for excel csv use Input With chr$(9),,true, true
       Open "data1.csv" for Wide Input as #M
       Open "data2.csv" for Wide Output as #M1
       Input #M, h1$, h2$, h3$, h4$, h5$
-      Write #M1, h1$, h2$, h3$, h4$, h5$
+      Write #M1, h1$, h2$, h3$, h4$, h5$, "SUM"
       Print h1$, h2$, h3$, h4$, h5$
 
       While not Eof(#M) {
@@ -35,13 +36,15 @@ Module Checkit {
       }
       close #M1
       Close #M
+      Input With chr$(9),locale$(0xE),,true
       Open "data2.csv" for Wide Input as #M
-      Input #M, h1$, h2$, h3$, h4$, h5$
-      Print h1$, h2$, h3$, h4$, h5$
+      Input #M, h1$, h2$, h3$, h4$, h5$, h6$
+      Print h1$, h2$, h3$, h4$, h5$, h6$
       While not Eof(#M) {
             Input #M, A1, A2, A3, A4, A5, Sum
             Print A1, A2, A3, A4, A5, Sum
       }
       Close #M
+      Win "Excel", dir$+"data2.csv"
 }
 Checkit

Task/CSV-data-manipulation/Nu/csv-data-manipulation-1.nu

@@ -0,0 +1,5 @@
+open 'test_in.csv' |
+  each { |row|
+    let sum = ($row | values | math sum);
+    $row | insert Sum $sum
+  }

Task/CSV-data-manipulation/Nu/csv-data-manipulation-2.nu

@@ -0,0 +1 @@
+open 'test_in.csv' | upsert Sum {|row| $row | values | math sum }