j=: 13 :' ;x <@((,"1}.)"1#~(=&{:|.)"1)"1 _ y'
j
[: ; <@((,"1 }.)"1 #~ (=&{: |.)"1)"1 _
f=: 13 :';x ([:<(,"1}.)"1#~(=&{:|.)"1)"1 _ y'
f
[: ; ([: < (,"1 }.)"1 #~ (=&{: |.)"1)"1 _
ff=: 13 :';x ([:<(,"1}.)"1#~C=:(=&{:|.)"1)"1 _ y'
(A j B)-:A f B
1
(A j B)-:A ff B
1
C
(=&{: |.)"1
C B
1 1 1 1 1
D=:=&{:
E=:[:={:
F=: 13 :'([:={:) y'
(D B)-:E B
1
(E B)-:F B
1
5!:2 <'D'
--T-T--┐
│=│&│{:│
L-+-+---
5!:2 <'E'
---T-T--┐
│[:│=│{:│
L--+-+---
5!:2 <'F'
---T-T--┐
│[:│=│{:│
L--+-+---
5!:4 <'D'
-- =
-- & -+- {:
5!:4 <'E'
-- [:
--+- =
L- {:
5!:4 <'F'
-- [:
--+- =
L- {:
G=: 13 :'((=&{:)|.)"1 y'
G
(=&{: |.)"1
H=: 13 :'(([:={:)|.)"1 y'
H
(([: = {:) |.)"1
5!:2 <'G'
--------------T-T-┐
│---------T--┐│"│1│
││--T-T--┐│|.││ │ │
│││=│&│{:││ ││ │ │
││L-+-+---│ ││ │ │
│L--------+---│ │ │
L-------------+-+--
5!:2 <'H'
---------------T-T-┐
│----------T--┐│"│1│
││---T-T--┐│|.││ │ │
│││[:│=│{:││ ││ │ │
││L--+-+---│ ││ │ │
│L---------+---│ │ │
L--------------+-+--
5!:4 <'G'
-- =
-- & -+- {:
----+- |.
-- " -+- 1
5!:4 <'H'
-- [:
-----+- =
----+ L- {:
-- " -+ L- |.
L- 1
G B
1 1 1 1 1
H B
ran with error:
|domain error: H
| H B
|[-30] c:\users\owner\j701-user\temp\37.ijs
G WORKS! H DOESN'T!
How can I write the function H without & and get 1 1 1 1 ?
Linda
NB. (d,e,f,g,h would be better than the capitals)
-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Linda Alvord
Sent: Friday, October 19, 2012 3:50 AM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] stitching matrices
Here is an ijis script that is puzzling me. In the next e-mail that follows
I show what happens:
]'A B'=:3|L:0(([:<i.)"1)3 5,:5 4
j=: 13 :' ;x <@((,"1}.)"1#~(=&{:|.)"1)"1 _ y'
j
f=: 13 :';x ([:<(,"1}.)"1#~(=&{:|.)"1)"1 _ y'
f
ff=: 13 :';x ([:<(,"1}.)"1#~C=:(=&{:|.)"1)"1 _ y'
(A j B)-:A f B
(A j B)-:A ff B
C
C B
D=:=&{:
E=:[:={:
F=: 13 :'([:={:) y'
(D B)-:E B
(E B)-:F B
5!:2 <'D'
5!:2 <'E'
5!:2 <'F'
5!:4 <'D'
5!:4 <'E'
5!:4 <'F'
G=: 13 :'((=&{:)|.)"1 y'
G
H=: 13 :'(([:={:)|.)"1 y'
H
5!:2 <'G'
5!:2 <'H'
5!:4 <'G'
5!:4 <'H'
G B
H B]'A B'=:3|L:0(([:<i.)"1)3 5,:5 4
j=: 13 :' ;x <@((,"1}.)"1#~(=&{:|.)"1)"1 _ y'
j
f=: 13 :';x ([:<(,"1}.)"1#~(=&{:|.)"1)"1 _ y'
f
ff=: 13 :';x ([:<(,"1}.)"1#~C=:(=&{:|.)"1)"1 _ y'
(A j B)-:A f B
(A j B)-:A ff B
C
C B
D=:=&{:
E=:[:={:
F=: 13 :'([:={:) y'
(D B)-:E B
(E B)-:F B
5!:2 <'D'
5!:2 <'E'
5!:2 <'F'
5!:4 <'D'
5!:4 <'E'
5!:4 <'F'
G=: 13 :'((=&{:)|.)"1 y'
G
H=: 13 :'(([:={:)|.)"1 y'
H
5!:2 <'G'
5!:2 <'H'
5!:4 <'G'
5!:4 <'H'
G B
H B
Linda
-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Linda Alvord
Sent: Wednesday, October 17, 2012 6:40 PM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] stitching matrices
The C and D are the cause of the 4 :
I inserted them to better understand June's solution. When I forgot to
remove them it caused the 4 : (which was also explained to indicate that
the definition applies two arguments.)
Sorry to bother everyone by my carelessness.
Linda
-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Aai
Sent: Wednesday, October 17, 2012 7:59 AM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] stitching matrices
Sorry, I can't figure out where D and C come from. Are these typos?
About 4 :
dictionary says
4 : n dyad only verb
On 17-10-12 13:44, Linda Alvord wrote:
> Both A j B and A f B have the same result:
>
> j=: 13 :' ;x<@((D=:,"1}.)"1#~(C=:=&{:|.)"1)"1 _ y'
> f=: 13 :';x ([:<(,"1}.)"1#~(=&{:|.)"1)"1 _ y'
>
> Both are verbs:
>
> type 'j'
> -----┐
> │verb│
> L-----
> type 'f'
> -----┐
> │verb│
> L-----
>
> So, what is the meaning of 4 : in the definition of j ?
> j
> 4 : ' ;x<@((D=:,"1}.)"1#~(C=:=&{:|.)"1)"1 _ y'
> f
> [: ; ([: < (,"1 }.)"1 #~ (=&{: |.)"1)"1 _
>
> Linda
>
>
> -----Original Message-----
> From: programming-boun...@forums.jsoftware.com
> [mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Aai
> Sent: Wednesday, October 17, 2012 3:37 AM
> To: programm...@jsoftware.com
> Subject: Re: [Jprogramming] stitching matrices
>
> Most of the time I'm too slow to come up with a complete and
> readysolution, so I showed this:
>
> ;A <@((,"1}.)"1#~(=&{: |.)"1)"1 _ B
>
> If I had given myself some more time I would have come up with the
> more complete and obvious solution R.E. Boss came up with:
>
> A ;@:(<@((,"1}.)"1#~(=&{: |.)"1)"1 _) B
>
> In my opinion not very important, but after I posted my solution I
> modified my phrase to what Raul Miller showed by 'moving' the < to the
> other possible position ('connected' with #). I practice this because
> I'm curious to this kind of variations of a solution.
>
> Finally answering your question: No I don't like your alternative more
> because I don't like the use of caps. But ok, that's a kind of
> nonsense preference (as is my drive to use as much as possible the
> natural rank of primitives/verbs). It happens several times I'm not
> smart enough to avoid the use caps. Also the alternative could cause
> the use of lots of parenthesis. Not elegant according to R.E.Boss's
> definition with which I do agree.
>
>
> On 17-10-12 08:14, Linda Alvord wrote:
>> Would you like this more? I just modified your sentence a little.
>>
>> j=: 13 :' ;x <@((D=:,"1}.)"1#~(C=:=&{:|.)"1)"1 _ y'
>> j
>> 4 : ' ;x <@((D=:,"1}.)"1#~(C=:=&{:|.)"1)"1 _ y'
>>
>> f=: 13 :';x ([:<(,"1}.)"1#~(=&{:|.)"1)"1 _ y'
>> f
>> [: ; ([: < (,"1 }.)"1 #~ (=&{: |.)"1)"1 _
>>
>> A j B
>> 0 1 2 0 1 2 0 1
>> 0 1 2 0 1 2 0 1
>> 2 0 1 2 0 1 2 0
>> 2 0 1 2 0 1 2 0
>> 1 2 0 1 2 0 1 2
>> A f B
>> 0 1 2 0 1 2 0 1
>> 0 1 2 0 1 2 0 1
>> 2 0 1 2 0 1 2 0
>> 2 0 1 2 0 1 2 0
>> 1 2 0 1 2 0 1 2
>>
>> Linda
>>
>>
>> -----Original Message-----
>> From: programming-boun...@forums.jsoftware.com
>> [mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Aai
>> Sent: Monday, October 15, 2012 12:50 PM
>> To: programm...@jsoftware.com
>> Subject: Re: [Jprogramming] stitching matrices
>>
>> Sorry, by far from elegant:
>>
>> ;A <@((,"1}.)"1#~(=&{: |.)"1)"1 _ B
>> 0 1 2 0 1 2 0 1
>> 0 1 2 0 1 2 0 1
>> 2 0 1 2 0 1 2 0
>> 2 0 1 2 0 1 2 0
>> 1 2 0 1 2 0 1 2
>>
>> On 15-10-12 16:59, R.E. Boss wrote:
>>> Given
>>>
>>> ['A B' =. 3|L:0<@i."(1)3 5,: 5 4
>>> +---------+-------+
>>> |0 1 2 0 1|0 1 2 0|
>>> |2 0 1 2 0|1 2 0 1|
>>> |1 2 0 1 2|2 0 1 2|
>>> | |0 1 2 0|
>>> | |1 2 0 1|
>>> +---------+-------+
>>>
>>> I want to stitch every row from A with all rows from B where ({:"1
>>> A)
>> equals {."1 B and one of these columns is deleted.
>>> This will give me
>>>
>>> A foo B
>>> 0 1 2 0 1 2 0 1
>>> 0 1 2 0 1 2 0 1
>>> 2 0 1 2 0 1 2 0
>>> 2 0 1 2 0 1 2 0
>>> 1 2 0 1 2 0 1 2
>>>
>>> Any elegant solutions?
>>>
>>>
>>> R.E. Boss
>>>
>>> --------------------------------------------------------------------
>>> -
>>> - For information about J forums see
>>> http://www.jsoftware.com/forums.htm
> --
> Met vriendelijke groet,
> @@i = Arie Groeneveld
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
--
Met vriendelijke groet,
@@i = Arie Groeneveld
----------------------------------------------------------------------
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
