[perl #76110] [BUG] Nested triangular reduce produces empty list

[Will Coleda via RT]

On Sat Jun 26 00:44:28 2010, ml...@physik.uni-wuerzburg.de wrote:
> 09:33 < tylercurtis> rakudo: say [\+] [\+] 1 xx 5
> 09:33 < p6eval> rakudo ea8f2b:  ( no output )
> 
> doesn't work :(
> 
> 09:33 < tylercurtis> pugs: say [\+] [\+] 1 xx 5
> 09:33 < p6eval> pugs: OUTPUT«1361015␤»
> 
> Yep, pugs gets it right

And rakudo does too, now:

> say [\+] [\+] 1 xx 5
1361015

> 09:35 <@moritz_> rakudo: say ([\+] 1 xx 5).perl
> 09:35 < p6eval> rakudo ea8f2b: OUTPUT«(1, 2, 3, 4, 5)␤»
> 
> first one still works...
> 
> 09:35 <@moritz_> rakudo: say ([\+] ([\+] 1 xx 5)).perl
> 09:35 < p6eval> rakudo ea8f2b: OUTPUT«()␤»
> 
> Nesting doesn't. Doesn't seem to be a precedence problem.

> say ([\+] ([\+] 1 xx 5)).perl
(1, 3, 6, 10, 15)
 
> 09:36 < tylercurtis> rakudo: say ([\+] [[\+] 1 xx 5])
> 09:36 < p6eval> rakudo ea8f2b: OUTPUT«1361015␤»
> 
> Aha. over-eager argument flattening somewhere?

These all work now. Just need tests.


-- 
Will "Coke" Coleda