Re: Simulating Perl6 Meta/Hyper operators mit pure Functional Programming

[BrowserUk]

Seems like a complicated way of doing something very simple:

#! perl -slw
use strict;

sub X {
    return map[ $_ ], @{ $_[0] } unless @_ > 1;
    map {
        my $item = $_;
        map {
            unshift @$_, $item;
            $_;
        } X( @_ );
    } @{ shift() }
}

print @$_ for X [ 'a','b' ], [ 1,2 ], ['x','y' ];

__END__
C:\test>FP-X
a1x
a1y
a2x
a2y
b1x
b1y
b2x
b2y

[LanX]

> Seems like a complicated way of doing ...

... lazy iterators! :)