diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-04 19:52:47 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-04 19:52:47 +0100 |
| commit | afcb7ec3634dc49dffd5c7eb8c8d799aee6e1a6b (patch) | |
| tree | b675708473b551c5a43eee391dbad6740c98022c /challenge-067 | |
| parent | 45acbf218d7cb9d413fe74d49c8e4ccc529bdf9b (diff) | |
| download | perlweeklychallenge-club-afcb7ec3634dc49dffd5c7eb8c8d799aee6e1a6b.tar.gz perlweeklychallenge-club-afcb7ec3634dc49dffd5c7eb8c8d799aee6e1a6b.tar.bz2 perlweeklychallenge-club-afcb7ec3634dc49dffd5c7eb8c8d799aee6e1a6b.zip | |
- Added challenge details.
Diffstat (limited to 'challenge-067')
| -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(", ")), |