Re: [Jprogramming] Stitching 1 to many

[Pascal Jasmin]

up=: 3 :'UP=:y'
up ,. ((< 2 ; 3) , <(22;23;24 25))

] many =: UP , < 0$ i.0
&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;
&#9474;&#9484;&#9472;&#9516;&#9472;&#9488;       
&#9474;
&#9474;&#9474;2&#9474;3&#9474;        &#9474;
&#9474;&#9492;&#9472;&#9524;&#9472;&#9496;       
&#9474;
&#9500;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9508;
&#9474;&#9484;&#9472;&#9472;&#9516;&#9472;&#9472;&#9516;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;&#9474;
&#9474;&#9474;22&#9474;23&#9474;24 25&#9474;&#9474;
&#9474;&#9492;&#9472;&#9472;&#9524;&#9472;&#9472;&#9524;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;&#9474;
&#9500;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9508;
&#9474;             &#9474;
&#9492;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;

   
] one =: ,. 1 1 1; 11 11 ; 111
&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;
&#9474;1 1 1&#9474;
&#9500;&#9472;&#9472;&#9472;&#9472;&#9472;&#9508;
&#9474;11 11&#9474;
&#9500;&#9472;&#9472;&#9472;&#9472;&#9472;&#9508;
&#9474;111  &#9474;
&#9492;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;
     
I'd like to end up with the following 6 boxes. unboxed
output:
1 1 1 2
1 1 1 3
11 11 22
11 11 23
11 11 24 25
111

thanks.

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm