diff options
| -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; |