aboutsummaryrefslogtreecommitdiff
path: root/challenge-137/abigail/awk/ch-2.awk
diff options
context:
space:
mode:
Diffstat (limited to 'challenge-137/abigail/awk/ch-2.awk')
-rw-r--r--challenge-137/abigail/awk/ch-2.awk23
1 files changed, 23 insertions, 0 deletions
diff --git a/challenge-137/abigail/awk/ch-2.awk b/challenge-137/abigail/awk/ch-2.awk
new file mode 100644
index 0000000000..281b28dc55
--- /dev/null
+++ b/challenge-137/abigail/awk/ch-2.awk
@@ -0,0 +1,23 @@
+#!/usr/bin/awk
+
+#
+# See ../README.md
+#
+
+#
+# Run as: awk -f ch-2.awk < input-file
+#
+
+function reverse (str) {
+ x = ""
+ for (i = length (str); i != 0; i --) {
+ x = x substr (str, i, 1)
+ }
+ return x
+}
+
+function ly (n) {
+ return n >= 10000000 ? 1 : n == reverse(n) ? 0 : ly(n + reverse(n))
+}
+
+{print ly($1)}