diff options
| -rw-r--r-- | challenge-134/abigail/README.md | 2 | ||||
| -rw-r--r-- | challenge-134/abigail/awk/ch-1.awk | 16 | ||||
| -rw-r--r-- | challenge-134/abigail/awk/ch-2.awk | 23 |
3 files changed, 41 insertions, 0 deletions
diff --git a/challenge-134/abigail/README.md b/challenge-134/abigail/README.md index aa835b7f1e..f545b41dde 100644 --- a/challenge-134/abigail/README.md +++ b/challenge-134/abigail/README.md @@ -2,8 +2,10 @@ ## Part 1 +* [AWK](awk/ch-1.awk) * [Perl](perl/ch-1.pl) ## Part 2 +* [AWK](awk/ch-2.awk) * [Perl](perl/ch-2.pl) diff --git a/challenge-134/abigail/awk/ch-1.awk b/challenge-134/abigail/awk/ch-1.awk new file mode 100644 index 0000000000..e1bb7f9695 --- /dev/null +++ b/challenge-134/abigail/awk/ch-1.awk @@ -0,0 +1,16 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-1.awk +# + +BEGIN { + split ("789 798 879 897 978", a, " ") + for (i = 1; i <= 5; i ++) { + print "1023456" a [i] + } +} diff --git a/challenge-134/abigail/awk/ch-2.awk b/challenge-134/abigail/awk/ch-2.awk new file mode 100644 index 0000000000..fa2f6a5397 --- /dev/null +++ b/challenge-134/abigail/awk/ch-2.awk @@ -0,0 +1,23 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-2.awk < input-file +# + +{ + delete a + for (i = 1; i <= $1; i ++) { + for (j = 1; j <= $2; j ++) { + a [i * j] = 1 + } + } + c = 0 + for (i in a) { + c ++ + } + print c +} |
