Very efficient spackaging of your box of dominoes! They look really great!
Here's how they look.

----------T---------T---------T---------T---------T---------T---------┐
│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│
││   │   │││   │   │││   │o  │││   │o  │││   │o o│││   │o o│││   │o o││
││   │   │││   │ o │││   │   │││   │ o │││   │   │││   │ o │││   │o o││
││   │   │││   │   │││   │  o│││   │  o│││   │o o│││   │o o│││   │o o││
│L---+----│L---+----│L---+----│L---+----│L---+----│L---+----│L---+----│
+---------+---------+---------+---------+---------+---------+---------+
│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│
││   │   │││   │o  │││   │o  │││   │o o│││   │o o│││   │o o│││o  │o  ││
││ o │ o │││ o │   │││ o │ o │││ o │   │││ o │ o │││ o │o o│││   │   ││
││   │   │││   │  o│││   │  o│││   │o o│││   │o o│││   │o o│││  o│  o││
│L---+----│L---+----│L---+----│L---+----│L---+----│L---+----│L---+----│
+---------+---------+---------+---------+---------+---------+---------+
│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│
││o  │o  │││o  │o o│││o  │o o│││o  │o o│││o  │o  │││o  │o o│││o  │o o││
││   │ o │││   │   │││   │ o │││   │o o│││ o │ o │││ o │   │││ o │ o ││
││  o│  o│││  o│o o│││  o│o o│││  o│o o│││  o│  o│││  o│o o│││  o│o o││
│L---+----│L---+----│L---+----│L---+----│L---+----│L---+----│L---+----│
+---------+---------+---------+---------+---------+---------+---------+
│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│----T---┐│
││o  │o o│││o o│o o│││o o│o o│││o o│o o│││o o│o o│││o o│o o│││o o│o o││
││ o │o o│││   │   │││   │ o │││   │o o│││ o │ o │││ o │o o│││o o│o o││
││  o│o o│││o o│o o│││o o│o o│││o o│o o│││o o│o o│││o o│o o│││o o│o o││
│L---+----│L---+----│L---+----│L---+----│L---+----│L---+----│L---+----│
L---------+---------+---------+---------+---------+---------+----------
   

-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Skip Cave
Sent: Sunday, October 05, 2014 11:31 PM
To: [email protected]
Subject: Re: [Jprogramming] Dominate the Dominoes

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

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

Reply via email to