A little late to the party. but at least it is a smidge quicker :-)
mulpermr=: [: ; (perm&.> #) (10 p.~ {)L:0 ] NB. Rauls version
mulpermb=: ;@:(10 #. each (<@] ({~) each ( <@perm"0 #))) NB. bob's version
(4 16$/:~1 2 3 4 mulpermb 2 3 4 5) -: (4 16$/:~1 2 3 4 mulpermr 2 3 4 5)
1
1000 timespacex '1 2 3 mulpermr 2 4 5'
3.2428e_5 7616
1000 timespacex '1 2 3 mulpermb 2 4 5'
3.0935e_5 7616
Cheers, bob
> On Jul 17, 2020, at 22:16, Skip Cave <[email protected]> wrote:
>
> 4 16$/:~1 2 3 4 mulperm 2 3 4 5
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
