From ed57faca04a582f079ae4baed5b2cf0ac9682a4b Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 11 Oct 2021 11:59:01 +0200
Subject: Allow all pandigit numbers.

---
 challenge-133/luca-ferrari/raku/ch-1.p6 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-133/luca-ferrari/raku/ch-1.p6 b/challenge-133/luca-ferrari/raku/ch-1.p6
index 87d0da2be5..ef7c25b62c 100644
--- a/challenge-133/luca-ferrari/raku/ch-1.p6
+++ b/challenge-133/luca-ferrari/raku/ch-1.p6
@@ -11,7 +11,7 @@ sub MAIN( Int $limit where { $limit > 0 } = 5 ) {
             next if $start ~~ / ^0+ /;
             my $found = 0;
             $found += $current.comb.grep( $_ ).so ?? 1 !! 0 for @digits;
-            take $current if $found == @digits.elems;
+            take $current if $found >= @digits.elems;
         }
     }
 
-- 
cgit