diff options
| -rw-r--r-- | challenge-282/mark-anderson/raku/ch-1.raku | 4 |
1 files changed, 1 insertions, 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 } |