Paste: Possible issue with mnapply?

Author: Krenium
Mode: factor
Date: Thu, 14 Mar 2019 12:07:26
Plain Text | 
! mnapply behaves mysteriously for n >= 4.

USE: generalizations
IN: scratchpad 1 1 [ * . ] 2 1 mnapply
1
IN: scratchpad 1 1 2 2 [ * . ] 2 2 mnapply
1
4
IN: scratchpad 1 1 2 2 3 3 [ * . ] 2 3 mnapply
1
4
9
IN: scratchpad 1 1 2 2 3 3 4 4 [ * . ] 2 4 mnapply
! Error: stack underflow
IN: scratchpad [ 1 1 2 2 3 3 4 4 [ * . ] 2 4 mnapply ] infer.
( x x -- x x )
IN: scratchpad [ 1 1 2 2 3 3 [ * . ] 2 3 mnapply ] infer.
( -- )
IN: scratchpad [ 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 [ * . ] 2 9 mnapply ] infer.
( x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x -- x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x )

Annotation: Also

Author: Krenium
Mode: factor
Date: Thu, 14 Mar 2019 12:25:58
Plain Text | 
IN: scratchpad [ [ * . ] 2 4 mnapply ] infer.
( x x x x x x x x x x -- x x )
IN: scratchpad 1 1 2 2 3 3 4 4 5 5 [ * . ] 2 4 mnapply
4
1
25
16

--- Data stack:
3
3

Annotation: Note this has now been fixed in 0.99

Author: Krenium
Mode: factor
Date: Wed, 3 Apr 2019 01:42:31
Plain Text | 
Note this has now been fixed in 0.99 thanks to mrjbq7

New Annotation

Summary:
Author:
Mode:
Body: