diff options
| -rw-r--r-- | challenge-047/markus-holzer/ch-1.p6 | 4 |
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; |