From f671db19fa23cd00175a6824d26bd281ac798ec2 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Tue, 11 Feb 2020 09:35:01 +0100
Subject: Prettification

---
 challenge-047/markus-holzer/ch-1.p6 | 4 ++--
 1 file 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;
-- 
cgit