Because

=&{:      <-->   x u&v y   <-->   (v x)  u (v y)

see also dictionary about compose   &

help/dictionary/d630v.htm


On 19-10-12 10:00, Linda Alvord wrote:
    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

--
Met vriendelijke groet,
@@i = Arie Groeneveld

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to