Look just under "Flawed solution to Linda's challenge" below.
On 11/20/2011 4:16 AM, Linda Alvord wrote:
> What are your definitions of By and Over?
> tbl
> 1 : '(,x)u/(,y)'
> Table=:[ by ] over +tbl
>
> a Table b
> |domain error: Table
> | a Table b
>
> by
> ''&;@,.@[ ,. ]
> over
> ({. ; }.)@":@,
>
> Linda
>
> -----Original Message-----
> From: [email protected]
> [mailto:[email protected]] On Behalf Of Kip Murray
> Sent: Saturday, November 19, 2011 9:58 PM
> To: [email protected]
> Subject: Re: [Jprogramming] table challenge in simple J
>
> I think the correct way to deal with the misbehavior of Table in extreme
> cases is to use adverb tbl below instead of adverb / , leaving the realm
> of Simple J.
>
> Use
>
> tbl =: 1 : 0
> :
> (,x)u/(,y)
> )
>
> and
>
> Table =: [ By ] Over +tbl
>
> then
>
> a Table b
> +-+-------+
> | |0 1 2 3|
> +-+-------+
> |2|2 3 4 5|
> |3|3 4 5 6|
> |5|5 6 7 8|
> +-+-------+
> 1 Table 2 3
> +-+---+
> | |2 3|
> +-+---+
> |1|3 4|
> +-+---+
> 1 2 Table 3
> +-+-+
> | |3|
> +-+-+
> |1|4|
> |2|5|
> +-+-+
> 1 Table 2
> +-+-+
> | |2|
> +-+-+
> |1|3|
> +-+-+
>
> The point is, if adverb tbl is used in place of / then not only is Table
> fixed, but also By and Over handle extreme cases correctly.
>
> Incidentally, Over's use of Format ": enables Table to get heading
> spacing right:
>
> 100 Table 2 3 4
> +---+-----------+
> | | 2 3 4|
> +---+-----------+
> |100|102 103 104|
> +---+-----------+
>
>
> On 11/18/2011 10:48 AM, Kip Murray wrote:
>> It is 18 November, so below is my solution Table to Linda's challenge.
>> It is the same as Raul's. However, it does not handle extreme cases
>> well, and I leave it as a further challenge to repair Table.
>>
>> The difficulty:
>>
>> 1 Table 2 3
>> +-+------+
>> | |2 |
>> +-+------+
>> |1| 3 3 4|
>> +-+------+
>>
>> 1 2 Table 3
>> +-+----+
>> | |3 |
>> +-+----+
>> |1| 4 5|
>> |2| |
>> +-+----+
>>
>> Flawed solution to Linda's puzzle:
>>
>> Over
>> [: ({. ; }.) [: ": ,
>>
>> By
>> (' ' ; [: ,. [) ,. ]
>>
>> Table
>> [ By ] Over +/
>>
>> Table f.
>> [ ((' ' ; [: ,. [) ,. ]) ] ([: ({. ; }.) [: ": ,) +/
>>
>> a Table b
>> +-+-------+
>> | |0 1 2 3|
>> +-+-------+
>> |2|2 3 4 5|
>> |3|3 4 5 6|
>> |5|5 6 7 8|
>> +-+-------+
>>
>> Over and Bye can produce any operation table, but Table can only produce
>> addition tables.
>>
>> a By b Over a */ b
>> +-+---------+
>> | |0 1 2 3|
>> +-+---------+
>> |2|0 2 4 6|
>> |3|0 3 6 9|
>> |5|0 5 10 15|
>> +-+---------+
>>
>>
>> -------- Original Message --------
>> Subject: [Jprogramming] table challenge in simple J
>> Date: Sun, 13 Nov 2011 20:51:50 -0500
>> From: Linda Alvord<[email protected]>
>> Reply-To: Programming forum<[email protected]>
>> To: 'Programming forum'<[email protected]>
>>
>> In the dictionary in the section on "Verbs and Adverbs" there are two
>> definitions designed to produce a table:
>>
>>
>>
>> over=:({.;}.)@":@,
>>
>> by=:' '&;@,.@[,.]
>>
>> a=: 2 3 5
>>
>> b=: 0 1 2 3
>>
>> a by b over a +/ b
>>
>> --T-------┐
>>
>> │ │0 1 2 3│
>>
>> +-+-------+
>>
>> │2│2 3 4 5│
>>
>> │3│3 4 5 6│
>>
>> │5│5 6 7 8│
>>
>> L-+--------
>>
>>
>>
>> Here is the challenge. Use the arguments a and b and define a single tacit
>> function in "simple J" that does not use @ and provides the same result.
>>
>>
>>
>> a table b
>>
>> --T-------┐
>> │ │0 1 2 3│
>> +-+-------+
>> │2│2 3 4 5│
>> │3│3 4 5 6│
>> │4│4 5 6 7│
>> L-+--------
>>
>>
>>
>> To give a little time for thought, do not post a solution until November
>> 18th. I'll post mine then too.
>>
>>
>>
>> Linda
>>
>> ----------------------------------------------------------------------
>> 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
