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 /challenge-003/abigail/bc | |
| 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
Diffstat (limited to 'challenge-003/abigail/bc')
| -rw-r--r-- | challenge-003/abigail/bc/ch-1.bc | 8 |
1 files changed, 8 insertions, 0 deletions
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 + } + } +} |