diff options
Diffstat (limited to 'challenge-137/abigail/awk/ch-2.awk')
| -rw-r--r-- | challenge-137/abigail/awk/ch-2.awk | 23 |
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)} |
