I haven't checked your code yet, but I found a nice way to eliminate
duplicates. However, I didn't package the dominoes very well. Now that you
finished, check Arie's solution in an equilateral triangle with no boxes.
Here's mine:
set=:dice,"0/dice
A=:|:,.(<"1)49 2$,set
G=:7 7$,A
M=:|:(i.7)>:/i.7
|:M#"0 G
----------T---------T---------T---------T---------T---------T---------┐
│----T---┐│ │ │ │ │ │ │
││ │ ││ │ │ │ │ │ │
││ │ ││ │ │ │ │ │ │
││ │ ││ │ │ │ │ │ │
│L---+----│ │ │ │ │ │ │
+---------+---------+---------+---------+---------+---------+---------+
│----T---┐│----T---┐│ │ │ │ │ │
││ │ │││ │ ││ │ │ │ │ │
││ │ o │││ o │ o ││ │ │ │ │ │
││ │ │││ │ ││ │ │ │ │ │
│L---+----│L---+----│ │ │ │ │ │
+---------+---------+---------+---------+---------+---------+---------+
│----T---┐│----T---┐│----T---┐│ │ │ │ │
││ │o │││ │o │││o │o ││ │ │ │ │
││ │ │││ o │ │││ │ ││ │ │ │ │
││ │ o│││ │ o│││ o│ o││ │ │ │ │
│L---+----│L---+----│L---+----│ │ │ │ │
+---------+---------+---------+---------+---------+---------+---------+
│----T---┐│----T---┐│----T---┐│----T---┐│ │ │ │
││ │o │││ │o │││o │o │││o │o ││ │ │ │
││ │ o │││ o │ o │││ │ o │││ o │ o ││ │ │ │
││ │ o│││ │ o│││ o│ o│││ o│ o││ │ │ │
│L---+----│L---+----│L---+----│L---+----│ │ │ │
+---------+---------+---------+---------+---------+---------+---------+
│----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││ │ │
│L---+----│L---+----│L---+----│L---+----│L---+----│ │ │
+---------+---------+---------+---------+---------+---------+---------+
│----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││ │
│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││
│L---+----│L---+----│L---+----│L---+----│L---+----│L---+----│L---+----│
L---------+---------+---------+---------+---------+---------+----------
Linda
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Linda Alvord
Sent: Monday, October 06, 2014 3:44 AM
To: [email protected]
Subject: Re: [Jprogramming] Dominate the Dominoes
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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
