diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-09-20 06:25:49 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-09-20 06:25:49 -0600 |
| commit | 94684e6b5f47654af6e94cbc19486c6af5222c69 (patch) | |
| tree | 3134e49ccc07286c83df4a4db25ff6646b116af0 | |
| parent | 09d1c54fa34d5bfcaa72aaf809c6ed96d194c64c (diff) | |
| download | perlweeklychallenge-club-94684e6b5f47654af6e94cbc19486c6af5222c69.tar.gz perlweeklychallenge-club-94684e6b5f47654af6e94cbc19486c6af5222c69.tar.bz2 perlweeklychallenge-club-94684e6b5f47654af6e94cbc19486c6af5222c69.zip | |
ch-2.raku simplified
| -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 } |