diff options
| -rw-r--r-- | challenge-078/markus-holzer/raku/ch-2.raku | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/challenge-078/markus-holzer/raku/ch-2.raku b/challenge-078/markus-holzer/raku/ch-2.raku index 9b462f4e2d..076d62d5c5 100644 --- a/challenge-078/markus-holzer/raku/ch-2.raku +++ b/challenge-078/markus-holzer/raku/ch-2.raku @@ -1,5 +1,5 @@ my @A = 10, 20, 30, 40, 50; -my @B = 3, 13, -2, 0; +my @B = 3, 13, -2, 0, 5; say "Builtin"; dd @A.rotate($_) for @B; @@ -10,9 +10,12 @@ dd rotate-array-multi( @A, $_ ) for @B; say "Selfmade (concise)"; dd rotate-array-concise( @A, $_ ) for @B; -say "Selfmade (concise)"; -rotate-array-inplace( @A, 3 ); -dd @A; +say "In-Place"; +for @B { + my @a = @A.clone; + rotate-array-inplace( @a, $_ ); + dd @a; +} multi rotate-array-multi( @a, $i where $i < 0 ) { rotate-array-multi( @a, @a + $i ) } |