From eaafeb924c8473172e139a8a92539b504550429b Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Mon, 26 Apr 2021 18:49:38 +0200
Subject: AWK solution for week 110, part 1

---
 challenge-110/abigail/README.md    |  1 +
 challenge-110/abigail/awk/ch-1.awk | 16 ++++++++++++++++
 2 files changed, 17 insertions(+)
 create mode 100644 challenge-110/abigail/awk/ch-1.awk

diff --git a/challenge-110/abigail/README.md b/challenge-110/abigail/README.md
index 789f3d845f..6e98908e45 100644
--- a/challenge-110/abigail/README.md
+++ b/challenge-110/abigail/README.md
@@ -41,6 +41,7 @@ We therefore conclude the examples just contain random spaces, and we
 can completly ignore any white space in the input.
 
 ### Solutions
+[AWK](awk/ch-1.awk)
 [Perl](perl/ch-1.pl)
 
 ### Blog
diff --git a/challenge-110/abigail/awk/ch-1.awk b/challenge-110/abigail/awk/ch-1.awk
new file mode 100644
index 0000000000..7b5cfbd981
--- /dev/null
+++ b/challenge-110/abigail/awk/ch-1.awk
@@ -0,0 +1,16 @@
+#!/usr/bin/awk
+
+#
+# See ../README.md
+#
+
+#
+# Run as: awk -f ch-1.awk < input-file
+#
+
+                                        {line = $0;
+                                         gsub (/ */, "", line)}  # Remove spaces
+
+match (line, /^[0-9]{14}$/)   ||                   # nnnn nnnnnnnnnn
+match (line, /^\+[0-9]{12}$/) ||                   # +nn  nnnnnnnnnn
+match (line, /^\([0-9]{2}\)[0-9]{10}$/) {print}    # (nn) nnnnnnnnnn
-- 
cgit