diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-04-26 16:26:42 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-04-26 16:26:42 +0100 |
| commit | 16e89bebcfa7e9ff3c620eaaa9a2dfa5515738cc (patch) | |
| tree | 0469df71b4e78a69b584bd23ca3d7e6d9d1c42fc | |
| parent | 9bd6c08488aeab0137e61c6e7a85c7bcebdcb5d6 (diff) | |
| download | perlweeklychallenge-club-16e89bebcfa7e9ff3c620eaaa9a2dfa5515738cc.tar.gz perlweeklychallenge-club-16e89bebcfa7e9ff3c620eaaa9a2dfa5515738cc.tar.bz2 perlweeklychallenge-club-16e89bebcfa7e9ff3c620eaaa9a2dfa5515738cc.zip | |
whitespace oops
| -rw-r--r-- | challenge-162/james-smith/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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" |