Re: [FWP] Iterating over multiple lists

[Tushar Samant <D@i-works.com>]

And on another note:

  sub braid (&@) {
    my($c, $i) = shift;
    map sub { my $i = shift; $c->(map $_->[$i], @_) }->($i++, @_), @{$_[0]};
  }

  $N = 3;

  print join ', ', braid sub {join '', @_}, map [($_)x$N], qw's a d'

--
Tushar Samant
~
~
:wq


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe