Initial data commit

Task/Generator-Exponential/Raku/generator-exponential.raku

@@ -0,0 +1,13 @@
+sub powers($m) { 0..* X** $m }
+
+my @squares = powers(2);
+my @cubes   = powers(3);
+
+sub infix:<with-out> (@orig, @veto) {
+    gather for @veto -> $veto {
+        take @orig.shift while @orig[0] before $veto;
+        @orig.shift if @orig[0] eqv $veto;
+    }
+}
+
+say (@squares with-out @cubes)[20 ..^ 20+10].join(', ');