ch-2.raku

1 files changed, 22 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..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(", ");
+}