diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-04-07 16:51:26 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-04-07 16:51:26 +0100 |
| commit | 721b8b0e7e4e10007cc99dc58b77509c6a3bfc17 (patch) | |
| tree | 5803367b982ded67ee6ae1b716d51553515a9fb0 | |
| parent | 185d0f86dce80e8cb7bdd67d0152794f2266cd63 (diff) | |
| download | perlweeklychallenge-club-721b8b0e7e4e10007cc99dc58b77509c6a3bfc17.tar.gz perlweeklychallenge-club-721b8b0e7e4e10007cc99dc58b77509c6a3bfc17.tar.bz2 perlweeklychallenge-club-721b8b0e7e4e10007cc99dc58b77509c6a3bfc17.zip | |
- Added solutions by Arne Sommer.
| -rw-r--r-- | challenge-002/arne-sommer/README | 1 | ||||
| -rw-r--r-- | challenge-002/arne-sommer/perl6/ch-1.p6 | 9 | ||||
| -rw-r--r-- | challenge-002/arne-sommer/perl6/ch-2.p6 | 11 | ||||
| -rw-r--r-- | members.json | 1 |
4 files changed, 22 insertions, 0 deletions
diff --git a/challenge-002/arne-sommer/README b/challenge-002/arne-sommer/README new file mode 100644 index 0000000000..b5d88e4df4 --- /dev/null +++ b/challenge-002/arne-sommer/README @@ -0,0 +1 @@ +Solution by Arne Sommer. diff --git a/challenge-002/arne-sommer/perl6/ch-1.p6 b/challenge-002/arne-sommer/perl6/ch-1.p6 new file mode 100644 index 0000000000..e6786d2fbf --- /dev/null +++ b/challenge-002/arne-sommer/perl6/ch-1.p6 @@ -0,0 +1,9 @@ +multi sub MAIN (Numeric $number where $number >= 0) +{ + say +$number; +} + +multi sub MAIN ($value) +{ + say $value; +} diff --git a/challenge-002/arne-sommer/perl6/ch-2.p6 b/challenge-002/arne-sommer/perl6/ch-2.p6 new file mode 100644 index 0000000000..750badd4fc --- /dev/null +++ b/challenge-002/arne-sommer/perl6/ch-2.p6 @@ -0,0 +1,11 @@ +subset BaseValue of Str where { /^<[ 0 .. 9, A .. Y ]>+$/ } +subset Base10or35 of Int where { $_ == 10 || $_ == 35 } + +sub MAIN (BaseValue $value, Base10or35 :$base is copy = 10) +{ + $base = 35 if $value ~~ /\D/; + + $base == 35 + ?? say $value.parse-base: $base # base 35 -> 10 + !! say $value.base: $base # base 10 -> 35 +} diff --git a/members.json b/members.json index a38c7d9408..5082794ca7 100644 --- a/members.json +++ b/members.json @@ -7,6 +7,7 @@ "alexey-melezhik" : "Alexey Melezhik", "andrezgz" : "Andrezgz", "antonio-gamiz" : "Antonio Gamiz", + "arne-sommer" : "Arne Sommer", "arpad-toth" : "Arpad Toth", "athanasius" : "Athanasius", "aubrey-quarcoo" : "Aubrey Quarcoo", |