On Wed, 27 Apr 2011 13:09:07 +0800, bill lam <[email protected]> wrote:
> I use this script and it ran clean.
>
> gsegssti=: 6 5 4
> creg=: 8 2 $ 2 4 4 4 4 0 2 0 2 2 0 2 0 4 2 4
>
> smoutput gsegssti; creg
> smoutput ($ gsegssti); $ creg
> smoutput bdysegs=: 2 ]/\ (|.`]`] @. (1+ * gsegssti) gsegssti){ creg
> smoutput bdysegs=: 2 ]/\ (|.`]`] @. (1+ * gsegssti) gsegssti){ creg
>
> I suspect if you run this script, it will also run clean. If not, this
> should establish a positive test.
>
> Are those really integer? Were your gsegssti or creg memory mapped or coerced
> from some pointers via external dll?
--------------
Yes, there were no arcane origins for my data, and your script does run
clean in
my system. However, additional references to storage afterward do not:
smoutput bdysegs=: 2 ]/\ (|.`]`] @. (1+ * gsegssti) gsegssti){ creg
0 2
2 2
smoutput bdysegs
10691848 0
0 0
smoutput bdysegs=: 2 ]/\ (|.`]`] @. (1+ * gsegssti) gsegssti){ creg
0 2
2 2
smoutput bdysegs
4 0
0 0
--Art Anger
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
