Prettification

1 files changed, 2 insertions, 2 deletions

diff --git a/challenge-047/markus-holzer/ch-1.p6 b/challenge-047/markus-holzer/ch-1.p6
index 597f82b9c8..fa17d7ad7c 100644
--- a/challenge-047/markus-holzer/ch-1.p6
+++ b/challenge-047/markus-holzer/ch-1.p6
@@ -7,11 +7,11 @@ my %r = @r.Hash;
 
 sub r2d( $r is copy ) { 
     $r .= uc;
-    %r{$r} || reduce { $^a >= $^b ?? $a + $b !! $a - $b }, $r.comb.map( -> $d { %r{$d} } );
+    %r{$r} || [+] $r.comb.map({  %r{$_} });
 }
 
 sub d2r( $d is copy ) {
-    join '', gather while $d > 0 {
+    [~] gather while $d > 0 {
          my ($k, $n) = @r.first( *.value <= $d ).kv; 
          take $k;
          $d -= $n;