I think the answer can be even more compact using the Evoke Gerund conjunction:
T =: 2 2 $ +/`|:`|.`(-/ .*) <"2 (T `: 0) i. 2 2 <"2 (T `: 0) i. 3 3 Jan-Pieter 2013/4/15 Linda Alvord <[email protected]> > > A=:i.2 2 > <"2 "."1 (>"0 f)(,"1)2 2 1$'A' > ----T----┐ > │2 4│0 2 │ > │0 0│1 3 │ > +---+----+ > │2 3│_2 0│ > │0 1│ 0 0│ > L---+----- > > <"2 "."1 (>"0 f)(,"1)2 2 1$'B' > --------T-----┐ > │9 12 15│0 3 6│ > │0 0 0│1 4 7│ > │0 0 0│2 5 8│ > +-------+-----+ > │6 7 8 │0 0 0│ > │3 4 5 │0 0 0│ > │0 1 2 │0 0 0│ > L-------+------ > > > This is getting closer to the answer. Linda > > -----Original Message----- > From: [email protected] > [mailto:[email protected]] On Behalf Of Linda > Alvord > Sent: Sunday, April 14, 2013 12:15 PM > To: [email protected] > Subject: Re: [Jprogramming] Table of Verbs > > You just need to exclude the extra zeros somehow. > > A=:>:i.2 2 > f=: 2 2$ '+/';'|:';'|.';'-/ .*' > "."1 (>"0 f)(,"1)2 2 1$'A' > 4 6 > 0 0 > > 1 3 > 2 4 > > > 3 4 > 1 2 > > _2 0 > 0 0 > > Linda > > > -----Original Message----- > From: [email protected] > [mailto:[email protected]] On Behalf Of Raul Miller > Sent: Sunday, April 14, 2013 11:45 AM > To: Programming forum > Subject: Re: [Jprogramming] Table of Verbs > > Paper and pencil is a powerful tool of thought. I have yet to see an > adequate replacement in any computing environment. > > -- > Raul > > On Sun, Apr 14, 2013 at 10:41 AM, km <[email protected]> wrote: > > It would be nice if there were a simple way to transform your T into U : > > > > U =: 2 2 $ +/ ; |: ; |. ; -/ . * > > U i. 2 2 > > +---+---+ > > |2 4|0 2| > > | |1 3| > > +---+---+ > > |2 3|_2 | > > |0 1| | > > +---+---+ > > U i. 3 3 > > +-------+-----+ > > |9 12 15|0 3 6| > > | |1 4 7| > > | |2 5 8| > > +-------+-----+ > > |6 7 8 |0 | > > |3 4 5 | | > > |0 1 2 | | > > +-------+-----+ > > U > > 2 2 $ +/ ; |: ; |. ; -/ .* > > > > P.S. I probably should have said "One of Ken's handwritten notes for > Linda". > > > > --Kip > > > > Sent from my iPad > > > > > > On Apr 14, 2013, at 9:40 AM, Dan Bron <[email protected]> wrote: > > > >> I wasn't wanting any behavior; I was just answering your question. > >> Is > there something else you wanted, having read Ken's paper (i.e. some other > question than how to make a table of verbs in J)? > >> > >> -Dan > >> > >> Please excuse typos; composed on a handheld device. > >> > >> On Apr 14, 2013, at 9:00 AM, km <[email protected]> wrote: > >> > >>> Is this the behavior you want? > >>> > >>> T =: 2 2 $ +/`|:`|.`(-/ .*) > >>> T i. 2 2 > >>> 2 > >>> T i. 3 3 > >>> 2 > >>> T > >>> +-------+---------------+ > >>> |+-+---+||: | > >>> ||/|+-+|| | > >>> || ||+||| | > >>> || |+-+|| | > >>> |+-+---+| | > >>> +-------+---------------+ > >>> ||. |+-+-----------+| > >>> | ||.|+-------+-+|| > >>> | || ||+-+---+|*||| > >>> | || |||/|+-+|| ||| > >>> | || ||| ||-||| ||| > >>> | || ||| |+-+|| ||| > >>> | || ||+-+---+| ||| > >>> | || |+-------+-+|| > >>> | |+-+-----------+| > >>> +-------+---------------+ > >>> > >>> --Kip > >>> > >>> Sent from my iPad > >>> > >>> > >>> On Apr 14, 2013, at 8:36 AM, Dan Bron <[email protected]> wrote: > >>> > >>>> 2 2 $ +/`|:`|.`(-/ .*) > >>>> > >>>> Please excuse typos; composed on a handheld device. > >>>> > >>>> On Apr 14, 2013, at 8:24 AM, km <[email protected]> wrote: > >>>> > >>>>> One of Ken's notes shows a "table of verbs". A two by two example > >>>>> in J might be > >>>>> > >>>>> +/ |: > >>>>> > >>>>> |. -/.* > >>>>> > >>>>> How would you implement such a table in J? > >>>>> > >>>>> --Kip Murray > >>>>> > >>>>> Sent from my iPad > >>>>> > >>>>> > >>>>> On Apr 13, 2013, at 11:53 PM, "Linda Alvord" > >>>>> <[email protected]> > wrote: > >>>>> > >>>>>> Here are some copies of notes that Ken made over the years. > >>>>>> > >>>>>> > >>>>>> http://www.jsoftware.com/jwiki/KenIversonNotes-LindaAlvord > >>>>>> > >>>>>> Linda > >>>>> ------------------------------------------------------------------ > >>>>> ---- For information about J forums see > >>>>> http://www.jsoftware.com/forums.htm > >>>> ------------------------------------------------------------------- > >>>> --- For information about J forums see > >>>> http://www.jsoftware.com/forums.htm > >>> -------------------------------------------------------------------- > >>> -- For information about J forums see > >>> http://www.jsoftware.com/forums.htm > >> --------------------------------------------------------------------- > >> - For information about J forums see > >> http://www.jsoftware.com/forums.htm > > ---------------------------------------------------------------------- > > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
