From 9fde7fd6445e2d9fbb60c8da8501f01eeca86822 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Sun, 14 Nov 2021 22:15:50 +0000
Subject: leading zeros are okay

---
 challenge-138/mark-anderson/raku/ch-2.raku | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/challenge-138/mark-anderson/raku/ch-2.raku b/challenge-138/mark-anderson/raku/ch-2.raku
index 9b43a7edb6..b636e94a03 100644
--- a/challenge-138/mark-anderson/raku/ch-2.raku
+++ b/challenge-138/mark-anderson/raku/ch-2.raku
@@ -17,9 +17,7 @@ sub split-number($n)
 {
     for terms($n.chars)
     {
-        my @a = $n.comb.rotor($_);
-        next if first { .elems > 1 and .head == 0 }, @a;
-        return 1 if @a.map(*.join).sum == $n.sqrt;
+        return 1 if $n.comb.rotor($_).map(*.join).sum == $n.sqrt;
     }
 
     return 0;
-- 
cgit 


From 420d37bae1496444e7c4fd57963982ae159f06b8 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Sun, 14 Nov 2021 22:46:01 +0000
Subject: minor edit

---
 challenge-138/mark-anderson/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-138/mark-anderson/raku/ch-1.raku b/challenge-138/mark-anderson/raku/ch-1.raku
index 91c1424e51..f49e5bf4d0 100644
--- a/challenge-138/mark-anderson/raku/ch-1.raku
+++ b/challenge-138/mark-anderson/raku/ch-1.raku
@@ -18,6 +18,6 @@ sub workdays($year)
     my $a := [ Nil, 261, 261, 261, 261, 261, 260, 260 ],
              [ Nil, 262, 262, 262, 262, 261, 260, 261 ];
 
-    my $dt = Date.new($year, 1, 1);
+    my $dt := Date.new($year, 1, 1);
     $a[ +$dt.is-leap-year ][ $dt.day-of-week ];
 }
-- 
cgit