diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-10-16 21:05:03 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-10-16 21:05:03 +0100 |
| commit | 58dac7fdbda73e9040ee71d8d582291caf66b0d3 (patch) | |
| tree | 2100a245a7117111e319efdc405cc0f329861671 | |
| parent | 007bc1dc73c76f85f9a8d9dfd99d2fc0370f4f1f (diff) | |
| download | perlweeklychallenge-club-58dac7fdbda73e9040ee71d8d582291caf66b0d3.tar.gz perlweeklychallenge-club-58dac7fdbda73e9040ee71d8d582291caf66b0d3.tar.bz2 perlweeklychallenge-club-58dac7fdbda73e9040ee71d8d582291caf66b0d3.zip | |
- Updated solution by Ulrich Rieke.
| -rw-r--r-- | challenge-030/ulrich-rieke/perl6/ch-2.p6 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-030/ulrich-rieke/perl6/ch-2.p6 b/challenge-030/ulrich-rieke/perl6/ch-2.p6 index e41731c05d..3f43719ae2 100644 --- a/challenge-030/ulrich-rieke/perl6/ch-2.p6 +++ b/challenge-030/ulrich-rieke/perl6/ch-2.p6 @@ -5,10 +5,10 @@ for (1..10) -> $a { for (1..10) -> $b { for (1..10) -> $c { my @treble.push($a , $b , $c ) ; + @treble .= sort ; @triples.push( @treble ) if ( (([+] @treble) == 12) && (@treble.grep( { $_ %% 2 } ).elems > 0) ) ; } } } -@triples.map( { sort $_ } ) ; -say @triples.unique ; +say @triples.unique(:with(&[eqv])) ; |