diff options
| -rw-r--r-- | challenge-114/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-114/abigail/awk/ch-1.awk | 39 |
2 files changed, 40 insertions, 0 deletions
diff --git a/challenge-114/abigail/README.md b/challenge-114/abigail/README.md index 93eb5e5b18..6d6da56bb8 100644 --- a/challenge-114/abigail/README.md +++ b/challenge-114/abigail/README.md @@ -16,6 +16,7 @@ Output: 1001 ~~~~ ### Solutions +* [AWK](awk/ch-1.awk) * [Perl](perl/ch-1.pl) ### Blog diff --git a/challenge-114/abigail/awk/ch-1.awk b/challenge-114/abigail/awk/ch-1.awk new file mode 100644 index 0000000000..dcc90a5751 --- /dev/null +++ b/challenge-114/abigail/awk/ch-1.awk @@ -0,0 +1,39 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-1.awk < input-file +# + +function reverse (word, out, i) { + for (i = length (word); i > 0; i --) { + out = out substr (word, i, 1) + } + return out +} + + + +/^9+$/ { + print $1 + 2 + next +} + +{ + part1 = substr ($1, 1, int (length ($1) / 2)) + part2 = substr ($1, 1 + int (length ($1) / 2), length ($1) % 2) + part3 = substr ($1, 1 + int (length ($1) / 2) + length ($1) % 2) + + if (reverse(part1) <= part3) { + part1 = (part1 part2) + 1 + if (length (part2)) { + part2 = substr (part1, length (part1), 1) + part1 = substr (part1, 1, length (part1) - 1) + } + } + + print part1 part2 reverse(part1) +} |