diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-09-19 07:38:21 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-09-19 07:38:21 +0100 |
| commit | a99f6f3aabcade0129194f819c6af4831317703a (patch) | |
| tree | a74aa758a16609eac79db26041da821af72710f2 /challenge-026 | |
| parent | ea8a19b61c4b7b969d880a2042b2415c6aae55c0 (diff) | |
| download | perlweeklychallenge-club-a99f6f3aabcade0129194f819c6af4831317703a.tar.gz perlweeklychallenge-club-a99f6f3aabcade0129194f819c6af4831317703a.tar.bz2 perlweeklychallenge-club-a99f6f3aabcade0129194f819c6af4831317703a.zip | |
- Added solution by Donald Hunter.
Diffstat (limited to 'challenge-026')
| -rw-r--r-- | challenge-026/donald-hunter/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-026/donald-hunter/perl6/ch-1.p6 | 8 |
2 files changed, 9 insertions, 0 deletions
diff --git a/challenge-026/donald-hunter/blog.txt b/challenge-026/donald-hunter/blog.txt new file mode 100644 index 0000000000..031b20611a --- /dev/null +++ b/challenge-026/donald-hunter/blog.txt @@ -0,0 +1 @@ +http://donaldh.wtf/2019/09/stones-and-jewels/ diff --git a/challenge-026/donald-hunter/perl6/ch-1.p6 b/challenge-026/donald-hunter/perl6/ch-1.p6 new file mode 100644 index 0000000000..b4093fbd21 --- /dev/null +++ b/challenge-026/donald-hunter/perl6/ch-1.p6 @@ -0,0 +1,8 @@ +#!/usr/bin/env perl6 + +sub MAIN(Str $stones, Str $jewels) { + + sub collect(Str $s) { $s.comb(/<[A..Z a..z]>/).Bag } + + say [+] collect($stones){collect($jewels).keys}; +} |