AWK solutions for week 134

3 files changed, 41 insertions, 0 deletions

diff --git a/challenge-134/abigail/README.md b/challenge-134/abigail/README.md
index aa835b7f1e..f545b41dde 100644
--- a/challenge-134/abigail/README.md
+++ b/challenge-134/abigail/README.md
@@ -2,8 +2,10 @@
 
 ## Part 1
 
+* [AWK](awk/ch-1.awk)
 * [Perl](perl/ch-1.pl)
 
 ## Part 2
 
+* [AWK](awk/ch-2.awk)
 * [Perl](perl/ch-2.pl)
diff --git a/challenge-134/abigail/awk/ch-1.awk b/challenge-134/abigail/awk/ch-1.awk
new file mode 100644
index 0000000000..e1bb7f9695
--- /dev/null
+++ b/challenge-134/abigail/awk/ch-1.awk
@@ -0,0 +1,16 @@
+#!/usr/bin/awk
+
+#
+# See ../README.md
+#
+
+#
+# Run as: awk -f ch-1.awk
+#
+
+BEGIN {
+    split ("789 798 879 897 978", a, " ")
+    for (i = 1; i <= 5; i ++) {
+        print "1023456" a [i]
+    }
+}
diff --git a/challenge-134/abigail/awk/ch-2.awk b/challenge-134/abigail/awk/ch-2.awk
new file mode 100644
index 0000000000..fa2f6a5397
--- /dev/null
+++ b/challenge-134/abigail/awk/ch-2.awk
@@ -0,0 +1,23 @@
+#!/usr/bin/awk
+
+#
+# See ../README.md
+#
+
+#
+# Run as: awk -f ch-2.awk < input-file
+#
+
+{
+    delete a
+    for (i = 1; i <= $1; i ++) {
+        for (j = 1; j <= $2; j ++) {
+            a [i * j] = 1
+        }
+    }
+    c = 0
+    for (i in a) {
+        c ++
+    }
+    print c
+}