From afcb7ec3634dc49dffd5c7eb8c8d799aee6e1a6b Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Sat, 4 Jul 2020 19:52:47 +0100 Subject: - Added challenge details. --- challenge-067/mohammad-anwar/raku/ch-2.raku | 8 ++++++++ challenge-067/mohammad-anwar/raku/ch-2a.raku | 8 ++++++++ 2 files changed, 16 insertions(+) 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(", ")), -- cgit