Sorry, I need a ext. prec. result, so pa should be corrected: NoKPs =: 4 : 0 'I J'=: y ep=. (0x&(,+,~)^: x, 1) * _1x&*^:(<1+x) _1x^x pa=. 1 1 0 1 1x & (+//.@(*/)) &.>^: (<x+1) <1 (2x^x)%~ +/ ep * > pa mS &.> |. (*1 _1$~#)&.>pa )
=@@i ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
