diff options
| author | Abigail <abigail@abigail.be> | 2021-01-21 02:12:24 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-01-21 02:12:24 +0100 |
| commit | 1980959c4af89bd63dcfec1d727cb7f4479289cc (patch) | |
| tree | ed73e50a2253e9d78f67e634d60281ba5187ef25 | |
| parent | 660c508c1f95db209dec26cfe84b9f197e9c7fde (diff) | |
| download | perlweeklychallenge-club-1980959c4af89bd63dcfec1d727cb7f4479289cc.tar.gz perlweeklychallenge-club-1980959c4af89bd63dcfec1d727cb7f4479289cc.tar.bz2 perlweeklychallenge-club-1980959c4af89bd63dcfec1d727cb7f4479289cc.zip | |
AWK solution for week 1, part 2
| -rw-r--r-- | challenge-001/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-001/abigail/awk/ch-2.awk | 16 |
2 files changed, 17 insertions, 0 deletions
diff --git a/challenge-001/abigail/README.md b/challenge-001/abigail/README.md index 78d02e6d99..15a8939c56 100644 --- a/challenge-001/abigail/README.md +++ b/challenge-001/abigail/README.md @@ -36,4 +36,5 @@ We will not be assuming a fixed upper bound. Instead, we read the upper boad from STDIN. ### Solutions +* [AWK](awk/ch-2.awk) * [Perl](perl/ch-2.pl) diff --git a/challenge-001/abigail/awk/ch-2.awk b/challenge-001/abigail/awk/ch-2.awk new file mode 100644 index 0000000000..23f8dff855 --- /dev/null +++ b/challenge-001/abigail/awk/ch-2.awk @@ -0,0 +1,16 @@ +# +# See ../README.md +# + +# +# Run as: awk -f ch-2.awk < input-file +# + +{ + for (i = 1; i <= $0; i ++) { + print (i % 15 == 0) ? "fizzbuzz" \ + : (i % 5 == 0) ? "buzz" \ + : (i % 3 == 0) ? "fizz" \ + : i + } +} |