From 009751b9ce1d31f524bf98cdabf1a2d1bdacede2 Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@andemark.io>
Date: Mon, 12 Aug 2024 08:11:11 +0000
Subject: Challenge 282 Solutions (Raku)

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

diff --git a/challenge-282/mark-anderson/raku/ch-1.raku b/challenge-282/mark-anderson/raku/ch-1.raku
index 2d79cf61dc..926b235b6a 100644
--- a/challenge-282/mark-anderson/raku/ch-1.raku
+++ b/challenge-282/mark-anderson/raku/ch-1.raku
@@ -8,8 +8,6 @@ is-deeply good-integer(77711233334445556678999), ("777", "444", "555", "999");
 
 sub good-integer($int)
 {
-    my $m = $int ~~ m:ov/ (^ || \d) ( (\d) $0 $0 ) (\d || $)
-                    <?{ all($0 !== $1[0], $1[0] !== $2) }> /;
-
+    my $m = $int ~~ m:ov/ (^ || \d) ( (\d) $0 $0 ) (\d || $) <?{ $1[0] !== $0|$2 }> /;
     return $m>>.[1]>>.Str || -1
 }
-- 
cgit