From d3d10252962e3a2f8a313df1a9590c492c16a35b Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 11 May 2020 18:54:22 -0600 Subject: ch-2.raku --- challenge-060/mark-anderson/raku/ch-2.raku | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 challenge-060/mark-anderson/raku/ch-2.raku diff --git a/challenge-060/mark-anderson/raku/ch-2.raku b/challenge-060/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..18f2454d8c --- /dev/null +++ b/challenge-060/mark-anderson/raku/ch-2.raku @@ -0,0 +1,22 @@ +#!/usr/bin/env raku + +# Usage: raku ch-2.raku 0 1 2 5 2 21 + +sub MAIN (*@L where @L.all ~~ UInt) { + my $y = @L.pop; + my $x = @L.pop; + my $list = @L>>.Str; + + my @ans = gather { + for (10**($x-1) .. (10**$x)-1) -> $num { + last if $num >= $y; + my $digits = $num.comb; + + if $digits (<=) $list { + take $num; + } + } + } + + say @ans.join(", "); +} -- cgit From a4af6c68add0fbf90f7da9d8dc1337f54a77a05b Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 11 May 2020 19:32:02 -0600 Subject: ch-2.raku --- challenge-060/mark-anderson/raku/ch-2.raku | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/challenge-060/mark-anderson/raku/ch-2.raku b/challenge-060/mark-anderson/raku/ch-2.raku index 18f2454d8c..eb3da74c55 100644 --- a/challenge-060/mark-anderson/raku/ch-2.raku +++ b/challenge-060/mark-anderson/raku/ch-2.raku @@ -8,8 +8,7 @@ sub MAIN (*@L where @L.all ~~ UInt) { my $list = @L>>.Str; my @ans = gather { - for (10**($x-1) .. (10**$x)-1) -> $num { - last if $num >= $y; + for (10**($x-1)..^$y) -> $num { my $digits = $num.comb; if $digits (<=) $list { -- cgit