On 8/15/07, Roger Hui <[EMAIL PROTECTED]> wrote:
> CT=: 3 : '(C.!.2 p) (<"1 p=. (i.!y) A. i.y)}1$.$~y'

Using some of J's newer features, and require'stats',
this can be reexpressed as:

   CT2=: perm [EMAIL PROTECTED](<"[EMAIL PROTECTED])`]} 1 $. $~

   (CT-:CT2)"0>:i.6
1 1 1 1 1 1

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

Reply via email to