Merge pull request #1236 from holli-holzer/master

Solutions Markus Holzer

2 files changed, 29 insertions, 0 deletions

diff --git a/challenge-047/markus-holzer/ch-1.p6 b/challenge-047/markus-holzer/ch-1.p6
new file mode 100644
index 0000000000..fa17d7ad7c
--- /dev/null
+++ b/challenge-047/markus-holzer/ch-1.p6
@@ -0,0 +1,28 @@
+# Implements only the simple additive kind
+
+subset Roman of Str where * ~~ / ^ M* D* C * L* X* V* I* $ /;
+
+my @r = :M(1000), :D(500), :C(100), :L(50), :X(10), :V(5), :I(1);
+my %r = @r.Hash;
+
+sub r2d( $r is copy ) { 
+    $r .= uc;
+    %r{$r} || [+] $r.comb.map({  %r{$_} });
+}
+
+sub d2r( $d is copy ) {
+    [~] gather while $d > 0 {
+         my ($k, $n) = @r.first( *.value <= $d ).kv; 
+         take $k;
+         $d -= $n;
+    }
+}
+
+multi sub MAIN(Roman $n, '+', Roman $m) { say d2r( $n.&r2d + $m.&r2d ) }
+multi sub MAIN(Roman $n, '-', Roman $m) { say d2r( $n.&r2d - $m.&r2d ) }
+multi sub MAIN(Roman $n, "×", Roman $m) { say d2r( $n.&r2d × $m.&r2d ) }
+multi sub MAIN(Roman $n, '÷', Roman $m) { say d2r( ($n.&r2d ÷ $m.&r2d).Int ) }
+
+# ~\perlweeklychallenge-club\challenge-047\markus-holzer>6 ch-1.p6 L ÷ II
+# XXV
+#~\perlweeklychallenge-club\challenge-047\markus-holzer>
\ No newline at end of file
diff --git a/challenge-047/markus-holzer/ch-2.p6 b/challenge-047/markus-holzer/ch-2.p6
new file mode 100644
index 0000000000..678b5bcd43
--- /dev/null
+++ b/challenge-047/markus-holzer/ch-2.p6
@@ -0,0 +1 @@
+.say for (100..*).grep({ $_ %% $_.comb[0,*-1].join })[^21]