nice... $ (($ -. 1:) ($ ,) ]) 1 6 1 1 $ 1 6
----- Original Message ----- From: Linda Alvord <[email protected]> To: [email protected] Cc: Sent: Thursday, May 8, 2014 4:58:18 AM Subject: Re: [Jprogramming] Remove 1s from shapes I was just practicing "going backwards" this morning and look what I got! f=: (A=:$ -. 1:) ($,) ] g=: 13 :'(($y)-. 1:y)$,y ' f ($ -. 1:) ($ ,) ] g , $~ $ -. 1: Linda -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Brian Schott Sent: Tuesday, March 04, 2014 5:00 PM To: Programming forum Subject: Re: [Jprogramming] Remove 1s from shapes That's funny. I almost said what you did. Thanks. On Tue, Mar 4, 2014 at 4:44 PM, Roger Hui <[email protected]> wrote: > f=: ($ -. 1:) ($,) ] > $ f 3 1 4 1 5 9 $ 'abc' > 3 4 5 9 > > > > On Tue, Mar 4, 2014 at 1:38 PM, Brian Schott <[email protected]> > wrote: > > > Is there a general verb that can reshape any noun with 1s in its shape so > > that the axes with 1s disappear? I know that most often changing > > calculations slightly can eliminate the 1s before they arise, but not > > always. > > > > For example if $a == 4 1 4 3, is there a verb that will > > make generalize the result like how ,"_2]1|: does in this case? > > $,"_2]1|:a == 4 4 3 > > > > -- > > (B=) > > ---------------------------------------------------------------------- > > For information about J forums see http://www.jsoftware.com/forums.htm > > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > -- (B=) <-----my sig Brian Schott ---------------------------------------------------------------------- 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
