diff options
| -rw-r--r-- | challenge-060/mark-anderson/raku/ch-2.raku | 21 |
1 files changed, 21 insertions, 0 deletions
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..eb3da74c55 --- /dev/null +++ b/challenge-060/mark-anderson/raku/ch-2.raku @@ -0,0 +1,21 @@ +#!/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)..^$y) -> $num { + my $digits = $num.comb; + + if $digits (<=) $list { + take $num; + } + } + } + + say @ans.join(", "); +} |