Merge pull request #1705 from andemark/branch-for-challenge-060

ch-2.raku

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(", ");
+}