diff options
| author | Abigail <abigail@abigail.be> | 2021-01-28 12:30:04 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-01-28 12:30:04 +0100 |
| commit | 50255b3d3d1cc4a5fdd4e57be0b369a8ec003f79 (patch) | |
| tree | 189ae81fca2b6cc33fb533b015c758fe870b7d07 | |
| parent | 3a0ad850aa19fad89a422abe0e45989fe4448137 (diff) | |
| download | perlweeklychallenge-club-50255b3d3d1cc4a5fdd4e57be0b369a8ec003f79.tar.gz perlweeklychallenge-club-50255b3d3d1cc4a5fdd4e57be0b369a8ec003f79.tar.bz2 perlweeklychallenge-club-50255b3d3d1cc4a5fdd4e57be0b369a8ec003f79.zip | |
Bc solution for week 3, part 1
| -rw-r--r-- | challenge-003/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-003/abigail/bc/ch-1.bc | 8 |
2 files changed, 9 insertions, 0 deletions
diff --git a/challenge-003/abigail/README.md b/challenge-003/abigail/README.md index 4ceda5bbbf..3f55d0e383 100644 --- a/challenge-003/abigail/README.md +++ b/challenge-003/abigail/README.md @@ -22,6 +22,7 @@ and `n2 = 2^i2 * 3^j2 * 5^k2`, then `n1` is generated before `n2`, iff ### Solutions * [AWK](awk/ch-1.awk) * [Bash](bash/ch-1.sh) +* [bc](bc/ch-1.bc) * [C](c/ch-1.c) * [Lua](lua/ch-1.lua) * [Node.js](node/ch-1.js) diff --git a/challenge-003/abigail/bc/ch-1.bc b/challenge-003/abigail/bc/ch-1.bc new file mode 100644 index 0000000000..d3336b509d --- /dev/null +++ b/challenge-003/abigail/bc/ch-1.bc @@ -0,0 +1,8 @@ +max = read () +for (base2 = 1; base2 <= max; base2 *= 2) { + for (base3 = base2; base3 <= max; base3 *= 3) { + for (base5 = base3; base5 <= max; base5 *= 5) { + base5 + } + } +} |