Thanks to Ric, Don, Kip, and Boss! I myself 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
