Add awk 15

mitchpaulus · Dec 7, 2024 · d94297f · d94297f
1 parent 2b9b711
commit d94297f
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 2 deletions.
diff --git a/README.md b/README.md
@@ -91,8 +91,12 @@ wt
 
 # 15. Print every line with the first field replaced by the line number
 # { $1 = NR; print }
-# Need a way to write value into an index.
-# .. (dup w 1 w w) each
+wt 1 lineNum!
+(
+    @lineNum str 0 setAt
+    " " join wl
+    @lineNum 1 + lineNum!
+) each
 
 # 16. Print every line after erasing the second field
 # { $2 = ""; print }

diff --git a/examples/awk/15.awk b/examples/awk/15.awk
@@ -0,0 +1 @@
+{ $1 = NR; print }
diff --git a/examples/awk/15.msh b/examples/awk/15.msh
@@ -0,0 +1,6 @@
+wt 1 lineNum!
+(
+    @lineNum str 0 setAt
+    " " join wl
+    @lineNum 1 + lineNum!
+) each
diff --git a/examples/awk/test.sh b/examples/awk/test.sh
@@ -41,5 +41,6 @@ data_test 11
 emp_test 12
 emp_test 13
 emp_test 14
+emp_test 15
 
 exit "$FAIL"