langs a-z

Task/Generator-Exponential/Perl-6/generator-exponential.pl6

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