Perl 6 More laziness and lists #13

A basic challenge of iterators

Let's try

sub mymap(@list, &block) {
     my @result;
     while @list {
         push @result, &block(@list.shift);
     }
     @result;
 }

 mymap($file.lines, &block);

Now the lines in @list are discarded as they are processed.

continued...
Copyright © 2012
http://www.pmichaud.com/2012/pres/