Not so quick and dirty
(in case of: mind line wrapping).
On top of what you already have:
bxdSpace =: < 3 7 $ ' '
bigSpace =: 5 9 $ ' '
unvSpace =: {. , bigSpace , ([: >: [) }. ]
dominos=: ({.,])dice {~;<@({.,.])\.i.7
domix=: _1,;<@({.,.])\.i.7
insSpaces=: 1j1#!._1 ]
shiftR =: ] (((1 2$_1) $~ [) , ])&.>~ [: i. [: - #
displayDms=: [: ; [: unvSpace&.>/([:(([:<"0[:I.0=]),[:<([:":
{&dominos)"0) domix&i.)
Then try this at home:
([:([: ]`(,./)@.(2-~[:# $) displayDms)&> [: shiftR [: insSpaces&.>
firstNRows )7
Note that I avoided the use of @ .
Now we wait for the J-experts for further improvements.
On 05-10-14 09:22, Linda Alvord wrote:
Here's a sample of dice. Now create a box of a set of dominoes.
d0=:' '
d1=:' o '
d2=:'o o'
d3=:'o o o'
d4=:'o o o o'
d5=:'o o o o o'
d6=:'o oo oo o'
d=:7 9$d0,d1,d2,d3,d4,d5,d6
]dice=:(<"2)3 3$"1 d
----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---+---+---+---+---+---+----
I originally wanted to remove the 49 boxes and just leave the dominoes, but
found it to be a formidable problem. However, if you do make a triangular
pattern of jus the dominoes, it would be impressive!
----------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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
--
Met vriendelijke groet,
@@i = Arie Groeneveld
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
