From a1bf165258539b0aa7117dbfebce87aae1f60cd3 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 7 Feb 2022 17:01:56 +0000
Subject: initial 151

---
 challenge-151/mark-anderson/raku/ch-1.raku | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/challenge-151/mark-anderson/raku/ch-1.raku b/challenge-151/mark-anderson/raku/ch-1.raku
index bdbf7dc7a8..21d3f470ac 100644
--- a/challenge-151/mark-anderson/raku/ch-1.raku
+++ b/challenge-151/mark-anderson/raku/ch-1.raku
@@ -11,10 +11,9 @@ sub binary-tree-depth($tree)
     my $elems = 1;
     my $depth = 0;
 
-    while @tree
+    for @tree -> $nodes
     {
-        my $nodes := shift @tree;
-        return $depth unless $nodes.elems == $elems;
+        last unless $nodes.elems == $elems;
         $elems = ($elems - $nodes.comb('*')) * 2;
         $depth++;
     }
-- 
cgit