Add solution for challenge-083-2 in Perl

1 files changed, 3 insertions, 3 deletions

diff --git a/challenge-083/daniel-mita/raku/ch-2.raku b/challenge-083/daniel-mita/raku/ch-2.raku
index ed5730718d..3c72a13df6 100755
--- a/challenge-083/daniel-mita/raku/ch-2.raku
+++ b/challenge-083/daniel-mita/raku/ch-2.raku
@@ -1,12 +1,12 @@
 #!/usr/bin/env raku
 
 sub MAIN(
-  *@positive-ints where { .elems > 0 && .all ~~ Int && .all > 0 }
+  *@positive-nums where { .elems > 0 && .all.Rat && .all > 0 }
   --> Nil
 ) {
   @(
-    @positive-ints.combinations(1..*)
-      .grep( *.sum ≤ @positive-ints.sum / 2 )
+    @positive-nums.combinations(1..*)
+      .grep( *.sum ≤ @positive-nums.sum / 2 )
       .sort({ $^b.sum <=> $^a.sum || $a.elems <=> $b.elems })
   )[0].elems.say;
 }