From 72a6744070c9f4e2ebc1d9425f16d46346cd0739 Mon Sep 17 00:00:00 2001 From: Simon Proctor Date: Thu, 9 Apr 2020 08:52:41 +0100 Subject: Small update --- challenge-055/simon-proctor/raku/ch-2-2.p6 | 8 ++------ 1 file 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 $_ } ); } } } -- cgit