From 40b09fbdf34bf6b04f82423874b0c7522ce46737 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Sun, 12 Sep 2021 09:56:57 +0100
Subject: remove unneeded list

---
 challenge-129/james-smith/perl/ch-2.pl | 4 ++--
 1 file 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;
-- 
cgit