Pascal

Indeed taking them one at a time seems to work
... though REB's objection still stands:

   Ii &> I. each <"1 [2 16$0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0
0 0 0 0 0 0 0 1 0 1
0 0 0 0 0 0 0 1 0 1

greg
~krsnadas.org

--

from: 'Pascal Jasmin' via Programming <[email protected]>
to: "[email protected]" <[email protected]>
date: 11 October 2014 10:08
subject: Re: [Jprogramming] an inverse to I.

though this works:

  ([: +/ ( 1 ,~ I.)"0) &> I. each <"1 >:/~ i.3

1 0 0
1 1 0
1 1 1

--

from: greg heil <[email protected]>
to: Programming forum <[email protected]>
date: 11 October 2014 09:49
subject: Re: [Jprogramming] an inverse to I.

   Ii=:   [: +./ ( 1 ,~ I.)"0
   >:/~ i.3
1 0 0
1 1 0
1 1 1
   I. >:/~ i.3
0 0 0
0 1 0
0 1 2
   Ii(I. >:/~ i.3)
1 0 0
1 1 0
1 0 1

greg
~krsnadas.org

--

from: 'Pascal Jasmin' via Programming <[email protected]>
to: Programming forum <[email protected]>
date: 11 October 2014 09:12
subject: [Jprogramming] an inverse to I.

I notice that there is no inverse to I. that is defined.  Is this an
appropriate one?

   ([: +./ ( 1 ,~ I.)"0)  7 9
0 0 0 0 0 0 0 1 0 1

   I. ([: +./ ( 1 ,~ I.)"0) 0 7 9
0 7 9
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to