diff options
| author | Abigail <abigail@abigail.be> | 2021-05-18 21:10:07 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-05-18 21:10:07 +0200 |
| commit | d15beb5dcb76d40a0c324a9be4da7d570976c911 (patch) | |
| tree | ddd956764a35aedb50b3692fd693f8066901c6c8 | |
| parent | 0fa43d3480c8734e1dd0c3bd1134351115a4d3ae (diff) | |
| download | perlweeklychallenge-club-d15beb5dcb76d40a0c324a9be4da7d570976c911.tar.gz perlweeklychallenge-club-d15beb5dcb76d40a0c324a9be4da7d570976c911.tar.bz2 perlweeklychallenge-club-d15beb5dcb76d40a0c324a9be4da7d570976c911.zip | |
Bash solution for week 113, part 1
| -rw-r--r-- | challenge-113/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-113/abigail/bash/ch-1.sh | 29 |
2 files changed, 30 insertions, 0 deletions
diff --git a/challenge-113/abigail/README.md b/challenge-113/abigail/README.md index 47f50ad7f3..b4469041da 100644 --- a/challenge-113/abigail/README.md +++ b/challenge-113/abigail/README.md @@ -19,6 +19,7 @@ Output: 1 ### Solutions * [AWK](awk/ch-1.awk) +* [Bash](bash/ch-1.sh) * [Perl](perl/ch-1.pl) ### Blog diff --git a/challenge-113/abigail/bash/ch-1.sh b/challenge-113/abigail/bash/ch-1.sh new file mode 100644 index 0000000000..7183523485 --- /dev/null +++ b/challenge-113/abigail/bash/ch-1.sh @@ -0,0 +1,29 @@ +#!/bin/sh + +# +# See ../README.md +# + +# +# Run as: bash ch-1.sh < input-file +# + +tens=(0 0 1 2 1 0 2 6 3 8) + +while read N D +do ((D10 = D == 0 ? 100 : 10 * D)) + if ((N >= D10 || (N % (D == 0 ? 10 : D) == 0))) + then echo 1 + continue + fi + for ((i = 1; i <= ${tens[$D]}; i ++)) + do ((T = N - 10 * i - D)) + if ((T >= 0 && T % D == 0)) + then echo 1 + continue 2 + fi + done + echo 0 +done + + |