diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-10-13 18:25:06 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2021-10-13 18:25:06 +0100 |
| commit | a42c93a95dbb2ff10f1deabc80eedb0ddd2a044d (patch) | |
| tree | e4a18424a03e95e632d9a0df59afcdd0e4a6e2f9 /challenge-134 | |
| parent | 372b86d80c774602f40f4fc156b44458004010f4 (diff) | |
| download | perlweeklychallenge-club-a42c93a95dbb2ff10f1deabc80eedb0ddd2a044d.tar.gz perlweeklychallenge-club-a42c93a95dbb2ff10f1deabc80eedb0ddd2a044d.tar.bz2 perlweeklychallenge-club-a42c93a95dbb2ff10f1deabc80eedb0ddd2a044d.zip | |
- Tidied up a bit.
Diffstat (limited to 'challenge-134')
| -rw-r--r-- | challenge-134/mohammad-anwar/perl/ch-2.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-134/mohammad-anwar/perl/ch-2.pl b/challenge-134/mohammad-anwar/perl/ch-2.pl index 97f7e20630..66375b4c9a 100644 --- a/challenge-134/mohammad-anwar/perl/ch-2.pl +++ b/challenge-134/mohammad-anwar/perl/ch-2.pl @@ -44,9 +44,10 @@ sub create_table { $line .= '-' for (4 .. length($col)); push @$table, $line; - my %terms; + my %terms = (); + $terms{$_} = 1 for (1 .. $m); + foreach my $i (1 .. $m) { - $terms{$i} = 1; my $row = "$i | $i"; foreach my $j (2 .. $n) { my $k = $i * $j; |