>And label1 grabs a left argument for Format from... somewhere :-)
...I was wrong. Format is used monadically throughout. label1 simply
combines the column labels with table (y) into a single unboxed table,
formats it (which gets the column spacings right for the labels) then
splits it off again with the verb ({. ; }.).
Then it avoids my reshape (2 2$...) by leveraging the property of stitch (,.)
Neat, Roger. Thanks for that potted masterclass.
Ian
On Tue, Nov 17, 2009 at 3:53 AM, Ian Clark <[email protected]> wrote:
> Our postings crossed, Roger. You're reading my thoughts.
>
> Yes, label is exactly how I was thinking. And label1 grabs a left
> argument for Format from... somewhere :-)
>
> Thanks. One of those will do fine.
>
> Ian
>
>
> On Tue, Nov 17, 2009 at 3:45 AM, Roger Hui <[email protected]> wrote:
>> label1=: 4 : '(x;":,.i.#y) ,. ({.;}.)":(i.{:$y),y'
>>
>>
>>
>> ----- Original Message -----
>> From: Roger Hui <[email protected]>
>> Date: Monday, November 16, 2009 19:42
>> Subject: Re: [Jprogramming] labelling a table
>> To: Programming forum <[email protected]>
>>
>>> label=: 4 : '(x;{.t),:(":,.i.#y);}.t=. ":(i.{:$y),y'
>>>
>>> ] zz=: 4 5 ?...@$ 20
>>> 6 15 19 12 14
>>> 19 0 17 0 14
>>> 6 18 13 18 11
>>> 12 18 0 10 2
>>>
>>> 'Foo' label zz
>>> +---+--------------+
>>> |Foo| 0 1 2 3 4|
>>> +---+--------------+
>>> |0 | 6 15 19 12 14|
>>> |1 |19 0 17 0 14|
>>> |2 | 6 18 13 18 11|
>>> |3 |12 18 0 10 2|
>>> +---+--------------+
>>>
>>>
>>>
>>> ----- Original Message -----
>>> From: Ian Clark <[email protected]>
>>> Date: Monday, November 16, 2009 16:16
>>> Subject: [Jprogramming] labelling a table
>>> To: Programming forum <[email protected]>
>>>
>>> > Suppose I have an arbitrary table, eg
>>> >
>>> > zz
>>> > 1 2 3 4 5
>>> > 2 3 1 8 10
>>> > 3 1 2 12 15
>>> > 4 8 12 6 2
>>> > 5 10 15 2 7
>>> >
>>> > what's a slick way of displaying it boxed and labelled, like
>>> > this? ...
>>> >
>>> > +-+-------------+
>>> > |s|0 1 2 3 4|
>>> > +-+-------------+
>>> > |0|1 2 3 4 5|
>>> > |1|2 3 1 8 10|
>>> > |2|3 1 2 12 15|
>>> > |3|4 8 12 6 2|
>>> > |4|5 10 15 2 7|
>>> > +-+-------------+
>>> >
>>> > Sorry to be lazy. It would do me good to work it out for
>>> myself, but
>>> > I'm pressed for time. Needed for APWJ. The best I can come up
>>> > with so
>>> > far is this:
>>> >
>>> > s=: 4 : '(<x;<y) { zz'
>>> > s table i.5
>>> > ...
>>> >
>>> > Ian
>> ----------------------------------------------------------------------
>> For information about J forums see http://www.jsoftware.com/forums.htm
>>
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
