aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAbigail <abigail@abigail.be>2021-11-04 15:43:21 +0100
committerAbigail <abigail@abigail.be>2021-11-04 15:43:21 +0100
commit894b6aa2f49af3178b0983689f9ba81c002ca7a3 (patch)
treea17163663e226708b32a45ccc4d4288dd8a0b05f
parent4f367cc84f76448eb21a5bda0bb4771f1118d09f (diff)
downloadperlweeklychallenge-club-894b6aa2f49af3178b0983689f9ba81c002ca7a3.tar.gz
perlweeklychallenge-club-894b6aa2f49af3178b0983689f9ba81c002ca7a3.tar.bz2
perlweeklychallenge-club-894b6aa2f49af3178b0983689f9ba81c002ca7a3.zip
AWK solution for week 133, part 1
-rw-r--r--challenge-133/abigail/README.md2
-rw-r--r--challenge-133/abigail/awk/ch-1.awk11
-rw-r--r--challenge-133/abigail/t/output-2-1.exp (renamed from challenge-133/abigail/t/output-2-1)0
3 files changed, 13 insertions, 0 deletions
diff --git a/challenge-133/abigail/README.md b/challenge-133/abigail/README.md
index bbf706a1f5..a5c5601063 100644
--- a/challenge-133/abigail/README.md
+++ b/challenge-133/abigail/README.md
@@ -8,6 +8,8 @@
### "No buildin sqrt function"
+* [AWK][awk/ch-1.awk)
+* [C][c/ch-1.c)
* [Perl][perl/ch-1a.pl)
## Part 2
diff --git a/challenge-133/abigail/awk/ch-1.awk b/challenge-133/abigail/awk/ch-1.awk
new file mode 100644
index 0000000000..825c4ba485
--- /dev/null
+++ b/challenge-133/abigail/awk/ch-1.awk
@@ -0,0 +1,11 @@
+#!/usr/bin/awk
+
+#
+# See ../README.md
+#
+
+#
+# Run as: awk -f ch-1.awk < input-file
+#
+
+{print int (exp (log ($1) / 2))}
diff --git a/challenge-133/abigail/t/output-2-1 b/challenge-133/abigail/t/output-2-1.exp
index 59bee5f2c3..59bee5f2c3 100644
--- a/challenge-133/abigail/t/output-2-1
+++ b/challenge-133/abigail/t/output-2-1.exp