T and j are slow, but the tacit version is nice.
'A B'=:3|L:0(([:i.)1)3 5,:5 4
BA=: 600$A
BB=: (5r3*600)$B
ts=: 6!:2 , 7!:2@]
ts 'P=:BA ;@:(((={: |.)1 @# (,}.)1)1 _) BB'
1.01695 1.65962e7
ts 'Q=:BA ;@:(((={: |.)1 @# (,1}.1))1 _) BB'
0.601724 1.65965e7
ts 'R=:BA ;@:(((={:1 |.1)
] On Behalf Of Linda Alvord
Sent: Thursday, October 25, 2012 9:23 PM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] Manipulating ranks (was: stitching matrices)
T and j are slow, but the tacit version is nice.
'A B'=:3|L:0(([:i.)1)3 5,:5 4
BA=: 600$A
BB=: (5r3*600)$B
ts=: 6!:2