diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-09-12 09:56:57 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-09-12 09:56:57 +0100 |
| commit | 40b09fbdf34bf6b04f82423874b0c7522ce46737 (patch) | |
| tree | ca6d3a8bbd25571dfb9a0f87278a256aaa99287f | |
| parent | 35f94af97537520465a0f48a4b896cdbb10ab764 (diff) | |
| download | perlweeklychallenge-club-40b09fbdf34bf6b04f82423874b0c7522ce46737.tar.gz perlweeklychallenge-club-40b09fbdf34bf6b04f82423874b0c7522ce46737.tar.bz2 perlweeklychallenge-club-40b09fbdf34bf6b04f82423874b0c7522ce46737.zip | |
remove unneeded list
| -rw-r--r-- | challenge-129/james-smith/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-129/james-smith/perl/ch-2.pl b/challenge-129/james-smith/perl/ch-2.pl index 073a26b877..be51eac8dc 100644 --- a/challenge-129/james-smith/perl/ch-2.pl +++ b/challenge-129/james-smith/perl/ch-2.pl @@ -14,13 +14,13 @@ my $ch1 = LL->new( 1 )->add( 3 )->add( 2 ); my $ch2 = LL->new( 3 )->add( 1 )->add( 2 ); my $ch3 = LL->new( $ch1->val + $ch2->val ); -my ( $p1, $p2, $p3 ) = ( $ch1, $ch2, $ch3 ); +my ( $p1, $p2 ) = ( $ch1, $ch2 ); while( 1 ) { $p1 = $p1->next; last unless $p1; $p2 = $p2->next; - $p3 = $p3->add( $p1->val + $p2->val ); + $ch3->add( $p1->val + $p2->val ); } say join " ", $ch3->flatten; |