On 5/14/2020 3:37 AM, Henry Rich wrote:
> It's failing inside vvv, probably something related to the _. used when
> the assert. fails. Please narrow it down to the simplest failure inside
> vvv.
You are right, and I mistaken in my last post. The problem is in vvv which is
evoked as monad with _. value as argument. Here is more simplified script:
NB. === start of script ~user/temp/hang.ijs ===
negneg=: -@]^:(0>[)
dhs2liso=: 1&$: :({.@] + (negneg~ {.) * i.@(negneg/)@])
diagliso=: 0 0 _&$: :(4 : 0)
'd h s'=. x=. ((i. 3) < (# x))} 0 0 _ ,: x
'm n'=. y=. 2 $ y
H=. n (-@*^:(0 > ])) d
S=. 0 >. <./ y , <. -: (n + m - | n - m + +: d)
(h ,: s <. S) ];.0 (>: n) dhs2liso H , S
)
setdiag=: 4 : 0
'e dhs'=. x
dhs=. ((i. 3) < (# dhs))} 0 0 _ ,: dhs
liso=. dhs diagliso $ y
e (liso"_)} y
)
idmat=: a:&$: :((1;[) setdiag (0 $~ 2 $ ]))
testptsvE=: 3 : 0
((setdiag~ ;&_1)~ idmat@#)&>/@}: _.
)
NB. === end of script ===
--
Regards
Igor
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
