And.. yet another fix

This does not leave my results in cannonical form, but they
are the right size now:

parts=: (] #~ (%~ [EMAIL PROTECTED]) = +/"[EMAIL PROTECTED]) [: #:@i. 2&^&.<:
pieces=: [ ([EMAIL PROTECTED]@[ */ ]) parts
combos=:  (#~ ~."1 -:"1 [EMAIL PROTECTED])@(+"1/ #~&(,/) 0 = [: +/"1 
*"1/)/@pieces

   $ 4 combos 8

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

Reply via email to