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 /challenge-113/abigail/bash | |
| 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
Diffstat (limited to 'challenge-113/abigail/bash')
| -rw-r--r-- | challenge-113/abigail/bash/ch-1.sh | 29 |
1 files changed, 29 insertions, 0 deletions
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 + + |