final

1 files changed, 2 insertions, 5 deletions

diff --git a/challenge-053/markus-holzer/raku/ch-1.p6 b/challenge-053/markus-holzer/raku/ch-1.p6
index 678c117972..08765fa5bb 100644
--- a/challenge-053/markus-holzer/raku/ch-1.p6
+++ b/challenge-053/markus-holzer/raku/ch-1.p6
@@ -1,11 +1,8 @@
-multi sub infix:<times>( Int $n, Callable $b --> Nil  ) is looser(&infix:<+>) { &$b($_) for ^$n; }
-multi sub infix:<times>( Numeric $n, Callable $b  --> Nil ) is looser(&infix:<+>) { &$b($_) for ^($n.Int); }
-
 sub MAIN( Int $degrees where * %% 90, :$size = 3 )
 {
-    my @matrix[ $size, $size ] = ( 1..$size² ).batch( $size );
+    my @matrix[ $size, $size ]  = ( 1..$size² ).batch( $size );
 
-    $degrees / 90 times { @matrix.&clockwise };
+    clockwise( @matrix ) for ^( $degrees / 90 );
 
     dd @matrix;
 }