diff options
| -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; |