diff options
| author | ohmycloud <sxw2k@sina.com> | 2020-07-04 19:56:39 +0800 |
|---|---|---|
| committer | ohmycloud <sxw2k@sina.com> | 2020-07-04 19:56:39 +0800 |
| commit | 386ef3a667925d73ef65e4ae97f713798cb71ca4 (patch) | |
| tree | eb74e461cc20eedd767a0e37ecbbec9b3a326af6 /challenge-067 | |
| parent | ce2bc30f1b6bf3e652828310499fa89a175308ca (diff) | |
| download | perlweeklychallenge-club-386ef3a667925d73ef65e4ae97f713798cb71ca4.tar.gz perlweeklychallenge-club-386ef3a667925d73ef65e4ae97f713798cb71ca4.tar.bz2 perlweeklychallenge-club-386ef3a667925d73ef65e4ae97f713798cb71ca4.zip | |
Solutions for challenges 067
Diffstat (limited to 'challenge-067')
| -rw-r--r-- | challenge-067/ohmycloud/raku/ch-1.p6 | 3 | ||||
| -rw-r--r-- | challenge-067/ohmycloud/raku/ch-2.p6 | 18 |
2 files changed, 21 insertions, 0 deletions
diff --git a/challenge-067/ohmycloud/raku/ch-1.p6 b/challenge-067/ohmycloud/raku/ch-1.p6 new file mode 100644 index 0000000000..10fbc21394 --- /dev/null +++ b/challenge-067/ohmycloud/raku/ch-1.p6 @@ -0,0 +1,3 @@ +sub MAIN(Int $m, Int $n) { + say (1..$m).combinations($n).grep: { [<] |$_ }; +} diff --git a/challenge-067/ohmycloud/raku/ch-2.p6 b/challenge-067/ohmycloud/raku/ch-2.p6 new file mode 100644 index 0000000000..a9dba6fbb8 --- /dev/null +++ b/challenge-067/ohmycloud/raku/ch-2.p6 @@ -0,0 +1,18 @@ +sub MAIN(Str $s) { + my %h = + 2 => 'abc', + 3 => 'def', + 4 => 'ghi', + 5 => 'jkl', + 6 => 'mno', + 7 => 'pqrs', + 8 => 'tuv', + 9 => 'wxyz'; + + my $r = $s.trans('01' => ''); + if $r.chars > 0 { + say unique [X~] %h{$r.comb}ยป.comb; + } else { + say []; + } +} |