diff options
| author | Simon Proctor <simon.proctor@zoopla.co.uk> | 2020-04-07 09:10:10 +0100 |
|---|---|---|
| committer | Simon Proctor <simon.proctor@zoopla.co.uk> | 2020-04-07 09:10:10 +0100 |
| commit | 061e09dfcd612ddb9be4ad3f5e36c46d73d03a39 (patch) | |
| tree | 8ad2b5c65aae5fe5418f6706f32a0e450a67c114 /challenge-055/simon-proctor | |
| parent | 140dc927e7e233215e703a9d44903ffb1c15e689 (diff) | |
| download | perlweeklychallenge-club-061e09dfcd612ddb9be4ad3f5e36c46d73d03a39.tar.gz perlweeklychallenge-club-061e09dfcd612ddb9be4ad3f5e36c46d73d03a39.tar.bz2 perlweeklychallenge-club-061e09dfcd612ddb9be4ad3f5e36c46d73d03a39.zip | |
Ooops.... had mine starting <= not >= fixed
Diffstat (limited to 'challenge-055/simon-proctor')
| -rw-r--r-- | challenge-055/simon-proctor/raku/ch-2.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-055/simon-proctor/raku/ch-2.p6 b/challenge-055/simon-proctor/raku/ch-2.p6 index e5689859a6..aee75ea167 100644 --- a/challenge-055/simon-proctor/raku/ch-2.p6 +++ b/challenge-055/simon-proctor/raku/ch-2.p6 @@ -13,7 +13,7 @@ multi sub MAIN( *@ ) is hidden-from-USAGE { say "Please give a list of 2 or more #| Given a list of integers return all the wave sorted lists multi sub MAIN( *@input where { $_.elems >= 2 && $_.all ~~ Int } ) { - .say for unique-perms( @input ).race.grep( -> @l { is-wave( 'lte', |@l ) } ); + .say for unique-perms( @input ).race.grep( -> @l { is-wave( 'gte', |@l ) } ); } sub unique-perms ( @input ) { |