diff options
| author | Jaldhar H. Vyas <jaldhar@braincells.com> | 2019-07-07 18:55:10 -0400 |
|---|---|---|
| committer | Jaldhar H. Vyas <jaldhar@braincells.com> | 2019-07-07 18:55:10 -0400 |
| commit | 8752f5d4956ad127c3fad69333f58c11e475a3eb (patch) | |
| tree | 2e4b9084f07ea1f1b1373568998489aa5c47a693 | |
| parent | b41cb33ca5ee3a1b8be383dee072c81fc5f7621c (diff) | |
| download | perlweeklychallenge-club-8752f5d4956ad127c3fad69333f58c11e475a3eb.tar.gz perlweeklychallenge-club-8752f5d4956ad127c3fad69333f58c11e475a3eb.tar.bz2 perlweeklychallenge-club-8752f5d4956ad127c3fad69333f58c11e475a3eb.zip | |
Removed unused line of code.
| -rwxr-xr-x | challenge-015/jaldhar-h-vyas/perl5/ch-2.pl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/challenge-015/jaldhar-h-vyas/perl5/ch-2.pl b/challenge-015/jaldhar-h-vyas/perl5/ch-2.pl index 1b10a04216..573531f1a5 100755 --- a/challenge-015/jaldhar-h-vyas/perl5/ch-2.pl +++ b/challenge-015/jaldhar-h-vyas/perl5/ch-2.pl @@ -21,7 +21,6 @@ sub encrypt { substr($tabulaRecta->{$key->[$i++ % $keylength]}, ord($c) - ord('A'), 1); } - sub makeSquare { my @shifted = ('Z', 'A' .. 'Y'); @@ -60,7 +59,6 @@ sub vigenere { my %tabulaRecta = makeSquare(); my $keylength = scalar @key; - my $i = 0; return join q{}, map { $op->(\@key, $keylength, \%tabulaRecta, $_); } @message; |