diff options
| author | James Smith <js5@sanger.ac.uk> | 2023-03-17 14:16:51 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-03-17 14:16:51 +0000 |
| commit | 80be87c8b742eb943d6feb3d1ee20f592cb0117e (patch) | |
| tree | 2a10d32472b1c47d989de964e6415111f1ff61aa | |
| parent | d32263ce2c73c1ff80fb5fb38b76fd617360039d (diff) | |
| download | perlweeklychallenge-club-80be87c8b742eb943d6feb3d1ee20f592cb0117e.tar.gz perlweeklychallenge-club-80be87c8b742eb943d6feb3d1ee20f592cb0117e.tar.bz2 perlweeklychallenge-club-80be87c8b742eb943d6feb3d1ee20f592cb0117e.zip | |
Update README.md
| -rw-r--r-- | challenge-208/james-smith/README.md | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/challenge-208/james-smith/README.md b/challenge-208/james-smith/README.md index 37b50bdba0..78914ce0c0 100644 --- a/challenge-208/james-smith/README.md +++ b/challenge-208/james-smith/README.md @@ -24,12 +24,13 @@ https://github.com/drbaggy/perlweeklychallenge-club/tree/master/challenge-208/ja We proceed to do a pass of each array. ```perl sub min_index_sum { - my( $b, %x, $t, $s, @best ) = ( 1e99, map { $_[0][$_] => $_ } reverse ( 0 .. $#{$_[0]} ) ); #1 - exists $x{$t = $_[1][$_]} && #3 - ( $b > ($s=$x{$t}+$_) ? ($b,@best) = ( $s,$t ) #4 - : $b == $s && push @best, $t ) #5 - for 0 .. $#{$_[1]}; #2 - return \@best; #6 + my( $b, %x, $t, $s, @best ) = ( 1e99, + map { $_[0][$_] => $_ } reverse ( 0 .. $#{$_[0]} ) ); #1 + exists $x{$t = $_[1][$_]} && #3 + ( $b > ($s=$x{$t}+$_) ? ($b,@best) = ( $s,$t ) #4 + : $b == $s && push @best, $t ) #5 + for 0 .. $#{$_[1]}; #2 + return \@best; #6 } ``` |