Thanks Ric! I didn't manage to do it in finite time. Bo.
>________________________________ > Fra: Ric Sherlock <[email protected]> >Til: Programming JForum <[email protected]> >Sendt: 2:41 fredag den 20. september 2013 >Emne: Re: [Jprogramming] 13 : '(g^:x)y' > > >or: >f3=: g@]^:[ > > > >On Fri, Sep 20, 2013 at 10:56 AM, Don Guinn <[email protected]> wrote: > >> Don't know why it didn't, but it took me forever to write it tacit myself. >> >> f2=.([:g])^:[ >> >> f2 >> >> +--------+--+-+ >> >> |+--+-+-+|^:|[| >> >> ||[:|g|]|| | | >> >> |+--+-+-+| | | >> >> +--------+--+-+ >> >> 45 f 27 >> >> 4616 >> >> >> On Thu, Sep 19, 2013 at 3:16 PM, Bo Jacoby <[email protected]> wrote: >> >> > g=.-:&(+ (2&|*>:&+:)) NB. (g y)= 2%~1+3*y if y is odd, (g y)=2%~y if y >> > is even. >> > f=.13 : '(g^:x)y' >> > f >> > >> > 4 : '(g^:x)y' >> > >> > >> > I wonder why f is not translated into tacit code. >> > >> > It works nevertheless: >> > 45 f 27 >> > 4616 >> > ---------------------------------------------------------------------- >> > 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
