diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-04-21 01:53:40 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-04-21 01:53:40 +0100 |
| commit | 9a4366fa3650a305e7c0fd629c6cbedb486f405d (patch) | |
| tree | d010c8ed859ef5d7f1f0e20a5115ee3abc0d5a49 | |
| parent | 7d736dd2c4e6c5dd3c18178051671552d8383100 (diff) | |
| download | perlweeklychallenge-club-9a4366fa3650a305e7c0fd629c6cbedb486f405d.tar.gz perlweeklychallenge-club-9a4366fa3650a305e7c0fd629c6cbedb486f405d.tar.bz2 perlweeklychallenge-club-9a4366fa3650a305e7c0fd629c6cbedb486f405d.zip | |
tidy
| -rw-r--r-- | challenge-109/james-smith/perl/ch-2.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-109/james-smith/perl/ch-2.pl b/challenge-109/james-smith/perl/ch-2.pl index 672003941e..436e0fca19 100644 --- a/challenge-109/james-smith/perl/ch-2.pl +++ b/challenge-109/james-smith/perl/ch-2.pl @@ -133,10 +133,10 @@ sub four_square_non_unique { my $f = splice @n3,$j,1; foreach my $k ( 0..@n3-1 ) { next if (my $n = $t + $b + (my $d = $n3[$k]) + $f) & 3; - my ( $c, $e ) = ( (my $a = $n/4-$b) - $d, (my $g = $n/4-$f) - $d ); - next if $check ne "@{[ sort $a,$b,$c,$d,$e,$f,$g ]}" || - exists $res{ my $key = "@{[ $a,$b,$c,$d,$e,$f,$g ]}" }; - $res{$key} = [ $a, $b, $c, $d, $e, $f, $g ]; + my @R = ($n/4-$b,$b,$n/4-$b-$d,$d,$n/4-$f-$d,$f,$n/4-$f); + next if exists $res{ my $key = "@R" }; + next if $check ne "@{[ sort @R ]}"; + $res{$key} = \@R; } } } |