diff options
| author | Myoungjin JEON <jeongoon@gmail.com> | 2020-08-08 09:30:27 +1000 |
|---|---|---|
| committer | Myoungjin JEON <jeongoon@gmail.com> | 2020-08-08 09:30:27 +1000 |
| commit | c0c7f8ec8494b7a64edad9f8b8e959b73c6766fa (patch) | |
| tree | 96c8c3831763598e13b5b6a2370ba14c928afbea /challenge-072 | |
| parent | 89b6a95c9d059aec8c02c73c8dc1be1df99717aa (diff) | |
| download | perlweeklychallenge-club-c0c7f8ec8494b7a64edad9f8b8e959b73c6766fa.tar.gz perlweeklychallenge-club-c0c7f8ec8494b7a64edad9f8b8e959b73c6766fa.tar.bz2 perlweeklychallenge-club-c0c7f8ec8494b7a64edad9f8b8e959b73c6766fa.zip | |
ch-072/jeongoon bug fixed in both perl and raku when matching "/0+$/" has no result
Diffstat (limited to 'challenge-072')
| -rw-r--r-- | challenge-072/jeongoon/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-072/jeongoon/raku/ch-1.raku b/challenge-072/jeongoon/raku/ch-1.raku index e5a3ebdcd9..a6c42d0b29 100644 --- a/challenge-072/jeongoon/raku/ch-1.raku +++ b/challenge-072/jeongoon/raku/ch-1.raku @@ -6,7 +6,7 @@ use v6.d; sub f ( Int $n where * > 0 ) { [*] 1 .. $n } sub zero-length-f-and-count ( Int $n where * > 0 ) { - ( f($n) ~~ /0+$/, '' ).chars; + ( f($n) ~~ /0+$/ // '' ).chars; } sub zero-length-reduce ( Int $n where * > 0 ) { |