From 721b8b0e7e4e10007cc99dc58b77509c6a3bfc17 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Sun, 7 Apr 2019 16:51:26 +0100 Subject: - Added solutions by Arne Sommer. --- challenge-002/arne-sommer/README | 1 + challenge-002/arne-sommer/perl6/ch-1.p6 | 9 +++++++++ challenge-002/arne-sommer/perl6/ch-2.p6 | 11 +++++++++++ members.json | 1 + 4 files changed, 22 insertions(+) create mode 100644 challenge-002/arne-sommer/README create mode 100644 challenge-002/arne-sommer/perl6/ch-1.p6 create mode 100644 challenge-002/arne-sommer/perl6/ch-2.p6 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", -- cgit