diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-01-04 21:18:09 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-01-04 21:18:09 +0000 |
| commit | d1581f755d50e5b3a5ccf74a25280f39caa809fc (patch) | |
| tree | 14d50cbd3a19dddf06cb89f16ea57155024e1da6 /challenge-146/abigail/awk | |
| parent | d8abd054e8e70147188d2b57c922ba092e2aecff (diff) | |
| parent | 41c3d16c97874e85d25f28d37e59df3e2d9a9d66 (diff) | |
| download | perlweeklychallenge-club-d1581f755d50e5b3a5ccf74a25280f39caa809fc.tar.gz perlweeklychallenge-club-d1581f755d50e5b3a5ccf74a25280f39caa809fc.tar.bz2 perlweeklychallenge-club-d1581f755d50e5b3a5ccf74a25280f39caa809fc.zip | |
Merge pull request #5463 from Abigail/abigail/week-146
Week 146
Diffstat (limited to 'challenge-146/abigail/awk')
| -rw-r--r-- | challenge-146/abigail/awk/ch-1.awk | 13 | ||||
| -rw-r--r-- | challenge-146/abigail/awk/ch-2.awk | 30 |
2 files changed, 43 insertions, 0 deletions
diff --git a/challenge-146/abigail/awk/ch-1.awk b/challenge-146/abigail/awk/ch-1.awk new file mode 100644 index 0000000000..53c43cdbc1 --- /dev/null +++ b/challenge-146/abigail/awk/ch-1.awk @@ -0,0 +1,13 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-1.awk +# + +BEGIN { + print "104743" +}
\ No newline at end of file diff --git a/challenge-146/abigail/awk/ch-2.awk b/challenge-146/abigail/awk/ch-2.awk new file mode 100644 index 0000000000..6556f70797 --- /dev/null +++ b/challenge-146/abigail/awk/ch-2.awk @@ -0,0 +1,30 @@ +#!/usr/bin/awk + +# +# See ../README.md +# + +# +# Run as: awk -f ch-2.awk < input-file +# + +BEGIN { + FS = "/" +} + +{ + a = $1; b = $2 + for (i = 1; i <= 2; i ++) { + if (a < b) { + b = b - a + } + else { + a = a - b + } + if (!a || !b) { + break + } + printf "%d/%d ", a, b + } + printf "\n" +} |