From 8752f5d4956ad127c3fad69333f58c11e475a3eb Mon Sep 17 00:00:00 2001 From: "Jaldhar H. Vyas" Date: Sun, 7 Jul 2019 18:55:10 -0400 Subject: Removed unused line of code. --- challenge-015/jaldhar-h-vyas/perl5/ch-2.pl | 2 -- 1 file changed, 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; -- cgit