diff options
| -rw-r--r-- | challenge-067/mohammad-anwar/raku/ch-2.raku | 8 | ||||
| -rw-r--r-- | challenge-067/mohammad-anwar/raku/ch-2a.raku | 8 |
2 files changed, 16 insertions, 0 deletions
diff --git a/challenge-067/mohammad-anwar/raku/ch-2.raku b/challenge-067/mohammad-anwar/raku/ch-2.raku index 0204f3b869..27bfe18da2 100644 --- a/challenge-067/mohammad-anwar/raku/ch-2.raku +++ b/challenge-067/mohammad-anwar/raku/ch-2.raku @@ -1,5 +1,13 @@ #!/usr/bin/env raku +# +# Perl Weekly Challenge - 067 +# +# Task #2: Letter Phone +# +# https://perlweeklychallenge.org/blog/perl-weekly-challenge-067/ +# + use v6.d; sub MAIN(Str :$digits where { $digits ~~ /^ <[0..9\*\#]>+ $/ } = '35') { diff --git a/challenge-067/mohammad-anwar/raku/ch-2a.raku b/challenge-067/mohammad-anwar/raku/ch-2a.raku index bd28c7ac7d..0446f074b3 100644 --- a/challenge-067/mohammad-anwar/raku/ch-2a.raku +++ b/challenge-067/mohammad-anwar/raku/ch-2a.raku @@ -1,5 +1,13 @@ #!/usr/bin/env raku +# +# Perl Weekly Challenge - 067 +# +# Task #2: Letter Phone +# +# https://perlweeklychallenge.org/blog/perl-weekly-challenge-067/ +# + use Test; is sprintf("[ %s ]", phone-letters('35').join(", ")), |