Ooops, you're right! Forgot about the dups.
1<;.2 (49 2$(,7 7#:i.49){dice) NB. This gives all 28 unique dominoes-.,>/[email protected] NB. This is the dup mask (-.,>/[email protected]) # 1<;.2 (49 2$(,7 7#:i.49){dice) NB. All dominos with dups removed 4 7$ (-.,>/[email protected]) # 1<;.2 (49 2$(,7 7#:i.49){dice) NB. All dominoes in a nice box. Skip ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
