I see an adverb:
g=.-:&(+ (2&|*>:&+:))
av =: 1 : '([: u ])^:['
45 g av 27
4616
--Kip Murray
Sent from my iPad
> On Sep 19, 2013, at 5:56 PM, 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
