diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-24 18:40:29 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-24 18:42:42 +0000 |
| commit | dece1f2fc50118db9bf94caa86c61dbe3b520204 (patch) | |
| tree | c82435c871093f20470929624fb9ee37c8540780 /challenge-049 | |
| parent | 7411784c0031c35b4239ece7a1537684b0107215 (diff) | |
| download | perlweeklychallenge-club-dece1f2fc50118db9bf94caa86c61dbe3b520204.tar.gz perlweeklychallenge-club-dece1f2fc50118db9bf94caa86c61dbe3b520204.tar.bz2 perlweeklychallenge-club-dece1f2fc50118db9bf94caa86c61dbe3b520204.zip | |
- Added solution to Task #1 in #Raku.
Diffstat (limited to 'challenge-049')
| -rw-r--r-- | challenge-049/mohammad-anwar/raku/ch-1.p6 | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/challenge-049/mohammad-anwar/raku/ch-1.p6 b/challenge-049/mohammad-anwar/raku/ch-1.p6 new file mode 100644 index 0000000000..5513491a93 --- /dev/null +++ b/challenge-049/mohammad-anwar/raku/ch-1.p6 @@ -0,0 +1,9 @@ +#!/usr/bin/env perl6 + +use v6; + +sub MAIN($num!) { + my (Int $res, Int $i); + repeat { $res = $num * ++$i; } until $res ~~ /^<[01]>+$/; + $res.say; +} |