diff options
| author | Abigail <abigail@abigail.be> | 2021-06-13 22:12:53 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-06-13 22:12:53 +0200 |
| commit | de712592c5fb8fd19eb30119aa2b231211298eff (patch) | |
| tree | 8935f5c28fc9d53f9f2d4ae66bf9f71258185e50 /challenge-116 | |
| parent | 7e7b2cab61dcef029b71bd066bf6b5e3a71011af (diff) | |
| download | perlweeklychallenge-club-de712592c5fb8fd19eb30119aa2b231211298eff.tar.gz perlweeklychallenge-club-de712592c5fb8fd19eb30119aa2b231211298eff.tar.bz2 perlweeklychallenge-club-de712592c5fb8fd19eb30119aa2b231211298eff.zip | |
Only preprocess when requested
Diffstat (limited to 'challenge-116')
| -rw-r--r-- | challenge-116/abigail/perl/ch-2.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/challenge-116/abigail/perl/ch-2.pl b/challenge-116/abigail/perl/ch-2.pl index 387d5f3afd..a0056f9796 100644 --- a/challenge-116/abigail/perl/ch-2.pl +++ b/challenge-116/abigail/perl/ch-2.pl @@ -58,7 +58,9 @@ if (@ARGV) { } my %squares; -%squares = map {$_ * $_ => 1} 1 .. 9000; +if ($type == $TYPE_PREPROCESS) { + %squares = map {$_ * $_ => 1} 1 .. 9000; +} # # Print 1 if the squares of the digits sum to a perfect square, 0 otherwise. |