Implement stupid first stab at lazy series operator with code blocks.

rakudo · Feb 8, 2010 · 4eb9894 · 4eb9894
1 parent 7e4f20e
commit 4eb9894
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -180,3 +180,21 @@ our multi sub infix:<...>($lhs, $rhs) {
         }
     }
 }
+
+our multi sub infix:<...>($lhs, Code $rhs) {
+    if $rhs.count != 1 {
+        die "Series operator currently cannot handle blocks with count != 1";
+    }
+
+    my $i = $lhs;
+    gather {
+        take $i;
+        my $last = $i;
+        loop {
+            $i = $rhs.($last);
+            my $j = $i;
+            take $j;
+            $last = $i;
+        }
+    }
+}