Nicer even is
((-~i.)3) 1 3 0 (1 :(':';'t/:"1 m~."1@,. i.@#"1 t=.x,.y')) i.3 4
0 _3 1 2 3
4 5 6 _2 7
_1 8 9 10 11
R.E. Boss
> One could also scatter the column over the table
>
> ((-~i.)3) 1 3 0 (1 :(':';'t/:"1 m([,-.~)"0 1 i.@#"1 t=.x,.y')) i.3 4
> 0 _3 1 2 3
> 4 5 6 _2 7
> _1 8 9 10 11
>
>
> R.E Boss
>
> > I would prefer
> >
> > '-' 3 (1 :(':';'(x,y)/: m([, -.~) i.# x,y')) 'hello'
> > hel-lo
> >
> >
> > R.E. Boss
> >
> >
> > > From a discussion a while ago I kept the following:
> > >
> > > NB. insert new items into an array - behaves like amend.
> > > ins =: 1 : (':'; 'x ((+i.@#)m)}(>:(i.#y)e.m)#y')
> > >
> > > For example:
> > >
> > > '-' 3 ins 'hello'
> > > hel-lo
> > >
> > > It also does:
> > > column 2 ins"1 table
> > > --T-T-T-┐
> > > │0│1│0│2│
> > > +-+-+-+-+
> > > │3│4│0│5│
> > > +-+-+-+-+
> > > │6│7│0│8│
> > > L-+-+-+--
> > >
> > > Ben
> > >
> > >
> > > ________________________________________
> > > From: [email protected] [programming-
> > > [email protected]] on behalf of Strale [[email protected]]
> > > Sent: Monday, July 20, 2015 14:11
> > > To: [email protected]
> > > Subject: [Jprogramming] insert column into tables
> > >
> > > Hello
> > >
> > > I am trying to combine Tables togethers
> > >
> > > for example I would like to insert column before the column 2 of the
> table
> > >
> > > [table =. 3 3 $ <"0 i.9
> > >
> > > --T-T-┐
> > >
> > > │0│1│2│
> > >
> > > +-+-+-+
> > >
> > > │3│4│5│
> > >
> > > +-+-+-+
> > >
> > > │6│7│8│
> > >
> > > L-+-+--
> > >
> > >
> > > [column =. 3 1$ (<,'0')
> > >
> > > --┐
> > >
> > > │0│
> > >
> > > +-+
> > >
> > > │0│
> > >
> > > +-+
> > >
> > > │0│
> > >
> > > L--
> > >
> > >
> > >
> > > the solution I have found at the moment is the following:
> > >
> > >
> > > [tab2 =. 2|."1 table
> > >
> > > --T-T-┐
> > >
> > > │2│0│1│
> > >
> > > +-+-+-+
> > >
> > > │5│3│4│
> > >
> > > +-+-+-+
> > >
> > > │8│6│7│
> > >
> > > L-+-+--
> > >
> > >
> > > [tab3 =. column ,"1 1 tab2
> > >
> > > --T-T-T-┐
> > >
> > > │0│2│0│1│
> > >
> > > +-+-+-+-+
> > >
> > > │0│5│3│4│
> > >
> > > +-+-+-+-+
> > >
> > > │0│8│6│7│
> > >
> > > L-+-+-+--
> > >
> > >
> > > Result:
> > >
> > > 2|."1 tab3
> > >
> > > --T-T-T-┐
> > >
> > > │0│1│0│2│
> > >
> > > +-+-+-+-+
> > >
> > > │3│4│0│5│
> > >
> > > +-+-+-+-+
> > >
> > > │6│7│0│8│
> > >
> > > L-+-+-+--
> > >
> > >
> > > Can you suggest me a better solution ?
> > >
> > > Thanks
> > >
> > > Paolo
> > > ----------------------------------------------------------------------
> > > 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
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
