Re: Outer product considered useful

[Luke Palmer]

Luke Palmer writes:
> Which is of course wrong.
> 
>     sub _outer_coro(@prev, @data) is coroutine
>     {
>         if (@data) {
>             _outer_coro([ @prev, @data[0] ], @data[1...])
>         }
>         else {
>             yield [EMAIL PROTECTED];
>         }
>     }
> 
>     sub outer([EMAIL PROTECTED] is context(Scalar))
>     {
>         <_outer_coro([], @data)>
>     }

I'm just going to stop trying after this one.

    sub _outer_coro(@prev, @data) is coroutine
    {
        if (@data) {
            _outer_coro([ @prev, $_ ], @data[1...]) for @(@data[0]);
        }
        else {
            yield [EMAIL PROTECTED];
        }
    }
    
    sub outer([EMAIL PROTECTED] is context(Scalar))
    {
        <_outer_coro([], @data)>
    }

Luke