diff options
| author | Mark Anderson <mark@andemark.io> | 2024-08-12 08:11:11 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2024-08-12 08:11:11 +0000 |
| commit | 009751b9ce1d31f524bf98cdabf1a2d1bdacede2 (patch) | |
| tree | 10c5dab4b771f5eef98316355e5702842d722502 /challenge-282 | |
| parent | 42c34f22a83f225b6bbda86eb52d49f034e8fb3b (diff) | |
| download | perlweeklychallenge-club-009751b9ce1d31f524bf98cdabf1a2d1bdacede2.tar.gz perlweeklychallenge-club-009751b9ce1d31f524bf98cdabf1a2d1bdacede2.tar.bz2 perlweeklychallenge-club-009751b9ce1d31f524bf98cdabf1a2d1bdacede2.zip | |
Challenge 282 Solutions (Raku)
Diffstat (limited to 'challenge-282')
| -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 } |