diff options
| -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])) ; |