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
