From 16e89bebcfa7e9ff3c620eaaa9a2dfa5515738cc Mon Sep 17 00:00:00 2001 From: drbaggy Date: Tue, 26 Apr 2022 16:26:42 +0100 Subject: whitespace oops --- challenge-162/james-smith/perl/ch-2.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-162/james-smith/perl/ch-2.pl b/challenge-162/james-smith/perl/ch-2.pl index 2b1af30baf..5a674aaa3c 100644 --- a/challenge-162/james-smith/perl/ch-2.pl +++ b/challenge-162/james-smith/perl/ch-2.pl @@ -30,7 +30,7 @@ sub _crypt { my( $o, $key, $p, $out, @r, %l ) = ( shift, shift, 0, '' ); ## Initialise variables and get mapping... exists $l{$_} || ( $l{$_}=[int $p/5,($p++)%5] ) ## %l maps letter to position for grep { /[a-z]/ } split ( //, $key =~s/j/i/gr ), 'a'..'i', 'k'..'z'; ## values are ["row no", "column no"] - $r[ $l{$_}[0] ] [$l{$_}[1] ] = $_ for keys %l; ## @r maps position to letter, first + $r[ $l{$_}[0] ][ $l{$_}[1] ] = $_ for keys %l; ## @r maps position to letter, first ## index row, 2nd column. my @seq = grep {/[a-z]/} split //, lc shift =~ s{j}{i}gr; ## Prep sequence, remove non-letters, ## lower case, convert "j" to "i" -- cgit