Do you find the "13 : ..." form clearer than tacit?
In any case, this should do the trick:
   13 : '(<"1 y)$&.><<'' '''
(<<' ') $&.>~ <"1
   (((<<' ') $&.>~ <"1) -: gg) A
1


On Wed, Jan 21, 2015 at 8:55 AM, Linda Alvord <lindaalv...@verizon.net>
wrote:

> I want to write gg in direct definition as  g=: 13 ::
>
>
>
>    f=: 13 :'(>:i.x),"0 / >:i.y'
>
>    A=:3 f 4
>
>    gg=:([: < (<' ') $~ ])"1
>
>    gg A
>
> ----T-----T-------T---------┐
> │--┐│--T-┐│--T-T-┐│--T-T-T-┐│
> ││ │││ │ │││ │ │ │││ │ │ │ ││
> │L--│L-+--│L-+-+--│L-+-+-+--│
> +---+-----+-------+---------+
> │--┐│--T-┐│--T-T-┐│--T-T-T-┐│
> ││ │││ │ │││ │ │ │││ │ │ │ ││
> │+-+│+-+-+│+-+-+-+│+-+-+-+-+│
> ││ │││ │ │││ │ │ │││ │ │ │ ││
> │L--│L-+--│L-+-+--│L-+-+-+--│
> +---+-----+-------+---------+
> │--┐│--T-┐│--T-T-┐│--T-T-T-┐│
> ││ │││ │ │││ │ │ │││ │ │ │ ││
> │+-+│+-+-+│+-+-+-+│+-+-+-+-+│
> ││ │││ │ │││ │ │ │││ │ │ │ ││
> │+-+│+-+-+│+-+-+-+│+-+-+-+-+│
> ││ │││ │ │││ │ │ │││ │ │ │ ││
> │L--│L-+--│L-+-+--│L-+-+-+--│
> L---+-----+-------+----------
>
>
>
> Linda
>
>
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm




-- 
Devon McCormick, CFA
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to