diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-04-07 20:31:17 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-07 20:31:17 +0100 |
| commit | 91e0a822d36b3406abe91174d4accaae7659a412 (patch) | |
| tree | 6a28a482ba68541f8de42d315917d25498a92980 | |
| parent | 1215e8707d1b1934c36f08a35a662c32bb7f6782 (diff) | |
| parent | 15bf7e64bb4a56c407d265e88ff5e47be9b5c5fb (diff) | |
| download | perlweeklychallenge-club-91e0a822d36b3406abe91174d4accaae7659a412.tar.gz perlweeklychallenge-club-91e0a822d36b3406abe91174d4accaae7659a412.tar.bz2 perlweeklychallenge-club-91e0a822d36b3406abe91174d4accaae7659a412.zip | |
Merge pull request #28 from AlexDaniel/master
Perl Weekly Challenge 002
| -rw-r--r-- | challenge-001/alex-daniel/README | 1 | ||||
| -rw-r--r-- | challenge-001/alexdaniel/README.md | 1 | ||||
| -rw-r--r-- | challenge-001/alexdaniel/perl6/ch-1.p6 (renamed from challenge-001/alex-daniel/perl6/ch-1.p6) | 1 | ||||
| -rw-r--r-- | challenge-001/alexdaniel/perl6/ch-2.p6 (renamed from challenge-001/alex-daniel/perl6/ch-2.p6) | 0 | ||||
| -rw-r--r-- | challenge-002/alex-daniel/README | 1 | ||||
| -rw-r--r-- | challenge-002/alexdaniel/README.md | 1 | ||||
| -rw-r--r-- | challenge-002/alexdaniel/perl6/ch-1.p6 | 9 | ||||
| -rw-r--r-- | challenge-002/alexdaniel/perl6/ch-2.p6 | 9 |
8 files changed, 20 insertions, 3 deletions
diff --git a/challenge-001/alex-daniel/README b/challenge-001/alex-daniel/README deleted file mode 100644 index a085722b3b..0000000000 --- a/challenge-001/alex-daniel/README +++ /dev/null @@ -1 +0,0 @@ -Solution by Alex Daniel diff --git a/challenge-001/alexdaniel/README.md b/challenge-001/alexdaniel/README.md new file mode 100644 index 0000000000..c22d28b3e8 --- /dev/null +++ b/challenge-001/alexdaniel/README.md @@ -0,0 +1 @@ +Solutions by [AlexDaniel](https://github.com/AlexDaniel/) diff --git a/challenge-001/alex-daniel/perl6/ch-1.p6 b/challenge-001/alexdaniel/perl6/ch-1.p6 index a31ee8e172..047fbacbd1 100644 --- a/challenge-001/alex-daniel/perl6/ch-1.p6 +++ b/challenge-001/alexdaniel/perl6/ch-1.p6 @@ -1,2 +1 @@ $_ = ‘Perl Weekly Challenge’; say +tr/e/E/; .say - diff --git a/challenge-001/alex-daniel/perl6/ch-2.p6 b/challenge-001/alexdaniel/perl6/ch-2.p6 index ce84a7530b..ce84a7530b 100644 --- a/challenge-001/alex-daniel/perl6/ch-2.p6 +++ b/challenge-001/alexdaniel/perl6/ch-2.p6 diff --git a/challenge-002/alex-daniel/README b/challenge-002/alex-daniel/README deleted file mode 100644 index a085722b3b..0000000000 --- a/challenge-002/alex-daniel/README +++ /dev/null @@ -1 +0,0 @@ -Solution by Alex Daniel diff --git a/challenge-002/alexdaniel/README.md b/challenge-002/alexdaniel/README.md new file mode 100644 index 0000000000..c22d28b3e8 --- /dev/null +++ b/challenge-002/alexdaniel/README.md @@ -0,0 +1 @@ +Solutions by [AlexDaniel](https://github.com/AlexDaniel/) diff --git a/challenge-002/alexdaniel/perl6/ch-1.p6 b/challenge-002/alexdaniel/perl6/ch-1.p6 new file mode 100644 index 0000000000..7782c6dcea --- /dev/null +++ b/challenge-002/alexdaniel/perl6/ch-1.p6 @@ -0,0 +1,9 @@ +# Supports any unicode digits, so ႐႐၄၂ will be trimmed to ၄၂. +# Zero and negative numbers are not trimmed because the task +# specifically asks for positive numbers. However, it is not specified +# what a “number” is, and same goes for formatting requirements (e.g. +# “.5“ vs “0.5”), therefore I decided to keep it simple and just do +# the integers. So it's just a neat example on how to do unicode-aware +# number matching. + +put S:r/^[ <:Nd> & <:Numeric_Value(0)> ]* <before <:Nd>+$>// for @*ARGS diff --git a/challenge-002/alexdaniel/perl6/ch-2.p6 b/challenge-002/alexdaniel/perl6/ch-2.p6 new file mode 100644 index 0000000000..ade157486b --- /dev/null +++ b/challenge-002/alexdaniel/perl6/ch-2.p6 @@ -0,0 +1,9 @@ +#| From base 10 to base 35 +sub postfix:<₃₅>(Real() $a) { $a.base: 35 } +#| From base 35 to base 10 +sub postfix:<₁₀>( Str() $a) { $a.parse-base: 35 } + +say ‘ALEXDANIEL’₁₀; +say 836407881643061₃₅; + +# You can do non-ints too, but they won't roundtrip as you might expect |