1st commit on 122_raku

2 files changed, 28 insertions, 0 deletions

diff --git a/challenge-122/stuart-little/raku/ch-1.raku b/challenge-122/stuart-little/raku/ch-1.raku
new file mode 100755
index 0000000000..127df47f21
--- /dev/null
+++ b/challenge-122/stuart-little/raku/ch-1.raku
@@ -0,0 +1,6 @@
+#!/usr/bin/env raku
+use v6;
+
+# run <script> <space-separated numbers>
+
+say ([\+] @*ARGS.map(*.Num)) Z/ (1..*);
diff --git a/challenge-122/stuart-little/raku/ch-2.raku b/challenge-122/stuart-little/raku/ch-2.raku
new file mode 100755
index 0000000000..20a784790d
--- /dev/null
+++ b/challenge-122/stuart-little/raku/ch-2.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+use v6;
+
+# run <script> <score>
+
+sub comp($nr,$bd) {
+    my @tab=[[[],],];
+    for (1..$nr) -> $n {
+	my @item=[,];
+	for (1..$bd) -> $i {
+	    (@tab.elems >= $i) && do {
+		my @suppPrev = @tab.[*-$i].map( -> @ar { ($i, |@ar).Array }).Array;
+		@item.push(|@suppPrev);
+	    };
+	}
+	@tab.elems >= $bd && do { shift @tab };
+	@tab.push(@item);
+    }
+    return @tab.[*-1];
+}
+
+for (@(comp(@*ARGS[0].Int,3))) { .say }