diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-19 18:29:40 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-19 18:29:40 +0100 |
| commit | 1984df5fca8e74b55ab4bd6df5e5cbe3f44ea78e (patch) | |
| tree | f4f01fe2564a30be54eb2778fad0382999c40323 | |
| parent | 6a154071813b4fbbba8cd08dcd6f2ba3f909b63b (diff) | |
| download | perlweeklychallenge-club-1984df5fca8e74b55ab4bd6df5e5cbe3f44ea78e.tar.gz perlweeklychallenge-club-1984df5fca8e74b55ab4bd6df5e5cbe3f44ea78e.tar.bz2 perlweeklychallenge-club-1984df5fca8e74b55ab4bd6df5e5cbe3f44ea78e.zip | |
- Tidied up Raku solutions.
| -rw-r--r-- | challenge-069/mohammad-anwar/raku/ch-2.raku | 2 | ||||
| -rw-r--r-- | challenge-069/mohammad-anwar/raku/ch-2a.raku | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-069/mohammad-anwar/raku/ch-2.raku b/challenge-069/mohammad-anwar/raku/ch-2.raku index 8c0a86eddb..3f2e9114dc 100644 --- a/challenge-069/mohammad-anwar/raku/ch-2.raku +++ b/challenge-069/mohammad-anwar/raku/ch-2.raku @@ -18,7 +18,7 @@ sub string_0_1($string) { my $limit = .Int for $string ~~ m/(\d+)/; die "ERROR: Invalid string [$string]. S30 is the limit.\n" - if ($limit > 30); + if $limit > 30; my $string_0_1 = ''; for 1 .. $limit { diff --git a/challenge-069/mohammad-anwar/raku/ch-2a.raku b/challenge-069/mohammad-anwar/raku/ch-2a.raku index 5f8936d49f..5ca6600398 100644 --- a/challenge-069/mohammad-anwar/raku/ch-2a.raku +++ b/challenge-069/mohammad-anwar/raku/ch-2a.raku @@ -20,7 +20,7 @@ sub string_0_1($string) { my $limit = .Int for $string ~~ m/(\d+)/; die "ERROR: Invalid string [$string]. S30 is the limit.\n" - if ($limit > 30); + if $limit > 30; my $string_0_1 = ''; for 1 .. $limit { |