diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-26 18:24:11 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-26 18:24:11 +0000 |
| commit | e2664a3f4c9d187c2d5f8559048b9af0f2e66550 (patch) | |
| tree | 1b7d194f5ee74219a944809f6874d08112b3a6b3 | |
| parent | b7955687330151f29fa7303341c5a87716dff0cc (diff) | |
| download | perlweeklychallenge-club-e2664a3f4c9d187c2d5f8559048b9af0f2e66550.tar.gz perlweeklychallenge-club-e2664a3f4c9d187c2d5f8559048b9af0f2e66550.tar.bz2 perlweeklychallenge-club-e2664a3f4c9d187c2d5f8559048b9af0f2e66550.zip | |
- Minor update to code.
| -rw-r--r-- | challenge-049/mohammad-anwar/raku/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-049/mohammad-anwar/raku/ch-1.p6 b/challenge-049/mohammad-anwar/raku/ch-1.p6 index 6d9e6467a8..f7f377487e 100644 --- a/challenge-049/mohammad-anwar/raku/ch-1.p6 +++ b/challenge-049/mohammad-anwar/raku/ch-1.p6 @@ -4,6 +4,6 @@ use v6; sub MAIN(Int $num) { my (Int $res, Int $i); - repeat { $res = $num * ++$i; } until $res ~~ /^<[01]>+$/; + repeat { $res = $num * ++$i } until $res ~~ /^<[01]>+$/; $res.say; } |