diff options
| author | Simon Proctor <simon.proctor@zoopla.co.uk> | 2020-04-09 08:52:41 +0100 |
|---|---|---|
| committer | Simon Proctor <simon.proctor@zoopla.co.uk> | 2020-04-09 08:52:41 +0100 |
| commit | 72a6744070c9f4e2ebc1d9425f16d46346cd0739 (patch) | |
| tree | 3d071ba979f0350e3b3f014f419c3143c7d8c0bb /challenge-055/simon-proctor/raku | |
| parent | 785933a044e5189adf705f021160a0dca3a5cf42 (diff) | |
| download | perlweeklychallenge-club-72a6744070c9f4e2ebc1d9425f16d46346cd0739.tar.gz perlweeklychallenge-club-72a6744070c9f4e2ebc1d9425f16d46346cd0739.tar.bz2 perlweeklychallenge-club-72a6744070c9f4e2ebc1d9425f16d46346cd0739.zip | |
Small update
Diffstat (limited to 'challenge-055/simon-proctor/raku')
| -rw-r--r-- | challenge-055/simon-proctor/raku/ch-2-2.p6 | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/challenge-055/simon-proctor/raku/ch-2-2.p6 b/challenge-055/simon-proctor/raku/ch-2-2.p6 index 720ae11409..cec64a1e69 100644 --- a/challenge-055/simon-proctor/raku/ch-2-2.p6 +++ b/challenge-055/simon-proctor/raku/ch-2-2.p6 @@ -13,9 +13,7 @@ multi sub find-waves( [], @input is copy ) { gather { for @input.kv -> $i, $val { my @poss = @input[0..^$i,$i^..*-1].flat; - for find-waves( [$val], @poss, 'gte' ).grep( { defined $_ } ) -> @r { - take @r; - } + take $_ for find-waves( [$val], @poss, 'gte' ).grep( { defined $_ } ); } } } @@ -37,9 +35,7 @@ multi sub find-waves( @output is copy, @input is copy, $test ) { next unless &test( @output[*-1], $val ); my @poss = @input[0..^$i,$i^..*-1].flat; - for find-waves( [|@output, $val], @poss, $test ~~ 'gte' ?? 'lte' !! 'gte' ).grep( { defined $_ } ) -> @r { - take @r; - } + take $_ for find-waves( [|@output, $val], @poss, $test ~~ 'gte' ?? 'lte' !! 'gte' ).grep( { defined $_ } ); } } } |