Rename root to head, since it is a list.

1 files changed, 9 insertions, 9 deletions

diff --git a/challenge-071/luca-ferrari/raku/ch-2.p6 b/challenge-071/luca-ferrari/raku/ch-2.p6
index 43e64e31ed..947f83a1ca 100644
--- a/challenge-071/luca-ferrari/raku/ch-2.p6
+++ b/challenge-071/luca-ferrari/raku/ch-2.p6
@@ -36,17 +36,17 @@ sub MAIN( Int $N where { $N > 0 }, *@list ) {
 
     # build the list backward and keep the root
     # at the list
-    my $root = Nil;
+    my $head = Nil;
     my $current = Nil;
     loop ( my $i = @list.elems - 1; $i >= 0; $i-- ) {
-        $root = Node.new( value => @list[ $i ],
-                          next => $root );
+        $head = Node.new( value => @list[ $i ],
+                          next => $head );
     }
 
     # compute the size of the list
-    my $size-of-the-list = $root.size;
+    my $size-of-the-list = $head.size;
     "Size of the list is $size-of-the-list".say;
-    $root.put;
+    $head.put;
 
 
 
@@ -57,12 +57,12 @@ sub MAIN( Int $N where { $N > 0 }, *@list ) {
 
 
     # particular case: remove the root
-    $root = $root.next if ( $index == $index-to-remove || $N > $size-of-the-list );
+    $head = $head.next if ( $index == $index-to-remove || $N > $size-of-the-list );
 
     # remove a specific element, but only if this has not been already done
     # by removing the root element and thus changing the size of the list
-    if ( $root.size == $size-of-the-list ) {
-        $current = $root;
+    if ( $head.size == $size-of-the-list ) {
+        $current = $head;
         while ( $current ) {
             if ( ( $index + 1 ) == ( $size-of-the-list - $N + 1 ) ) {
                 $current.next = $current.next.next;
@@ -76,6 +76,6 @@ sub MAIN( Int $N where { $N > 0 }, *@list ) {
 
 
     # print the modified list
-    $root.put;
+    $head.put;
 
 }