diff options
| author | Matthew Neleigh <matthew.neleigh@gmail.com> | 2022-02-04 05:44:16 -0500 |
|---|---|---|
| committer | Matthew Neleigh <matthew.neleigh@gmail.com> | 2022-02-04 05:44:16 -0500 |
| commit | 821a2e2caf7b0fecdcf80e4d4815f22bb68c5e6a (patch) | |
| tree | 64512890a935cf9a7c478cb1f74d3f83cca3c198 /challenge-150 | |
| parent | 5bfb1fcda92aac32d77976f18e62a4b820c928b6 (diff) | |
| download | perlweeklychallenge-club-821a2e2caf7b0fecdcf80e4d4815f22bb68c5e6a.tar.gz perlweeklychallenge-club-821a2e2caf7b0fecdcf80e4d4815f22bb68c5e6a.tar.bz2 perlweeklychallenge-club-821a2e2caf7b0fecdcf80e4d4815f22bb68c5e6a.zip | |
modified: challenge-150/mattneleigh/perl/ch-2.pl
Diffstat (limited to 'challenge-150')
| -rwxr-xr-x | challenge-150/mattneleigh/perl/ch-2.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-150/mattneleigh/perl/ch-2.pl b/challenge-150/mattneleigh/perl/ch-2.pl index 084af60283..bed8d038aa 100755 --- a/challenge-150/mattneleigh/perl/ch-2.pl +++ b/challenge-150/mattneleigh/perl/ch-2.pl @@ -11,6 +11,7 @@ use English; my $n = 500; my @square_frees = find_square_free_integers($n); +printf("\nThe smallest positive square-free integers <= %d are:\n", $n); output_data_table(\*STDOUT, ceil(log($n)/log(10)), 80, \@square_frees); exit(0); |