diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-16 22:51:11 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-16 22:51:11 +0200 |
| commit | 6dd4422d8c3686a5047c185d03d65a827f3fdebf (patch) | |
| tree | ef030ccef695bfc6ba69463bb2cdba1b26de6d84 | |
| parent | 434feb90666199504c0d59e8556e10251c7018f1 (diff) | |
| download | perlweeklychallenge-club-6dd4422d8c3686a5047c185d03d65a827f3fdebf.tar.gz perlweeklychallenge-club-6dd4422d8c3686a5047c185d03d65a827f3fdebf.tar.bz2 perlweeklychallenge-club-6dd4422d8c3686a5047c185d03d65a827f3fdebf.zip | |
improved
| -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 ) } |