Nice Ric,
I like the way that you packaged the selector inside the amend clause, as that
gets around a lot of the boxing that I needed to coordinate the arguments.
The only improvement I can see is that the infinite rank on amend is not needed
as the rank 2 covers the w ; i argument. At least that is how it looks to me,
although my experience with } and ranks has been a bit challenging over the
last few days!
((0 1,:1 2) {~ permrep 2) (0&{::@]) `(<@:(<"1)@[)`(1&{::@]) }"2 w;i
abO
cdR
MNO
Mab
Pcd
MNO
MNO
abR
cdO
MNO
Pab
Mcd
Cheers, bob
> On Feb 18, 2019, at 7:58 PM, Ric Sherlock <[email protected]> wrote:
>
> ((0 1,:1 2) {~ permrep 2) (0&{::@]) `(<@:(<"1)@[)`(1&{::@]) }"2 _ w;i
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
