Add foldl/sum, example 7 from awk

README.md

@@ -41,7 +41,7 @@ wt :-1: :-1: wl
 .. (wsplit :-1: toFloat 4 >) filter (wl) each
 
 # 7. Print the total number of fields in all input lines
-#     { nf = nf + $NF }
+#     { nf = nf + NF }
 # END { print nf }
 .. (wsplit len) map sum wl
 

examples/awk/7.awk

@@ -0,0 +1,2 @@
+{ nf = nf + NF }
+END { print nf }

examples/awk/7.msh

@@ -0,0 +1 @@
+.. (wsplit len) map sum wl

examples/awk/test.sh

@@ -32,5 +32,6 @@ else
 fi
 
 emp_test 6
+emp_test 7
 
 exit "$FAIL"

lib/std.msh

@@ -53,6 +53,26 @@ def filter
     drop drop @filter-accum
 end
 
+# foldl (quote initial list -- result)
+def foldl
+    #  quote initial list
+    swap foldl-accum!  # Accumulator,
+    # quote list
+    swap foldl-quote! # Quote
+    # list
+    (
+        @foldl-accum swap # Accumulator item
+        @foldl-quote x # Execute quote
+        foldl-accum! # Update accumulator
+    ) each
+
+    @foldl-accum
+end
+
+# sum (list -- value)
+def sum
+    (+) 0 rot foldl
+end
 
 # .. (-- list[str]), equals kinda looks like lines.
 def .. stdin lines end

mshell/Lexer.go

@@ -181,7 +181,7 @@ func (t Token) ToJson() string {
 }
 
 func (t Token) DebugString() string {
-	return fmt.Sprintf("%d:%d: %s %s", t.Line, t.Column, t.Type, t.Lexeme)
+	return fmt.Sprintf("'%s'", t.Lexeme)
 }
 
 type Lexer struct {

tests/sum.msh

@@ -0,0 +1 @@
+[1 2 3 4] sum wl

tests/sum.msh.stdout

@@ -0,0 +1 @@
+10