From 58dac7fdbda73e9040ee71d8d582291caf66b0d3 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Wed, 16 Oct 2019 21:05:03 +0100
Subject: - Updated solution by Ulrich Rieke.

---
 challenge-030/ulrich-rieke/perl6/ch-2.p6 | 4 ++--
 1 file 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])) ;
-- 
cgit