diff options
| -rw-r--r-- | challenge-078/mark-anderson/raku/ch-2.raku | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/challenge-078/mark-anderson/raku/ch-2.raku b/challenge-078/mark-anderson/raku/ch-2.raku index 4971f7b76d..de242b7ba5 100644 --- a/challenge-078/mark-anderson/raku/ch-2.raku +++ b/challenge-078/mark-anderson/raku/ch-2.raku @@ -2,16 +2,4 @@ .say for left-rotate((7, 4, 2, 6, 3), (1, 3, 4)); -sub left-rotate(@A, @B) { - my @R = @A; - - gather { - for @B -> $i { - my $k = @R.first(@A[$i], :k); - - @R .= rotate($k); - - take @R; - } - } -} +sub left-rotate(@A, @B) { gather take @A.rotate($_).Array for @B } |