1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!/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') {
say sprintf("[ %s ]", phone-letters($digits).join(", "));
}
sub phone-letters(Str $digits where { $digits ~~ /^ <[0..9\*\#]>+ $/ }) {
# letter phone
my %letter-of = (
'1' => '_,@',
'2' => 'abc',
'3' => 'def',
'4' => 'ghi',
'5' => 'jlk',
'6' => 'mno',
'7' => 'pqrs',
'8' => 'tuv',
'9' => 'wxyz',
'0' => '0',
'#' => '#',
'*' => chr(9251),
);
# prepare data set
my @data = $digits.comb.map({ [ %letter-of{$_}.comb ] });
# generate all possible combinations
return map {qq{'$_'}}, ([X~] @data);
}
|
