It could also use & instead of &: since rank of monad ": is infinity.
Птн, 15 Июл 2011, bill lam писал(а):
> First observe for 2 numbers,
> 6 ,&": 63
> 663
>
> generalise it with rank operator to work on pairs of scalar number
> (>{.aa) ,&:":"0 (>{:aa)
> 663
> 302
> 15
> 1717
> 119103
> 11814
> 1161
>
> This is a character vector, to turn it back into number, it needs
> (>{.aa) ".@,&:":"0 (>{:aa)
> or
> (>{.aa) ".@:,&:":"0 (>{:aa)
> 663 302 15 1717 119103 11814 1161
>
>
> Чтв, 14 Июл 2011, PackRat писал(а):
> > I wish to append the digits of two numbers to form a new number:
> > 12 345 --> 12345
> >
> > I'm sure this is elementary, but I'm currently stumped. Here's some
> > data (which in reality would have been read in from a CSV file and then
> > transposed):
> >
> > aa=. 2 7 $ 6;30;1;17;119;118;116;63;2;5;17;103;14;1
> >
> > +--+--+-+--+---+---+---+
> > |6 |30|1|17|119|118|116|
> > +--+--+-+--+---+---+---+
> > |63|2 |5|17|103|14 |1 |
> > +--+--+-+--+---+---+---+
> >
> > Then I pulled out the numeric data pairs, converted them to literals,
> > and appended them:
> >
> > b=. ( ": every 0{aa ) ,. ( ": every 1{aa )
> >
> > 6 63
> > 30 2
> > 1 5
> > 17 17
> > 119103
> > 11814
> > 1161
> >
> > Just for visual purposes here (NOT in J!), I substituted * for spaces,
> > to show what's happening:
> >
> > 6**63*
> > 30*2**
> > 1**5**
> > 17*17*
> > 119103
> > 11814*
> > 1161**
> >
> > However, what I want to end up with is this, no spaces, different
> > lengths:
> >
> > 663
> > 302
> > 15
> > 1717
> > 119103
> > 11814
> > 1161
> >
> > To attempt to do this, I did the following:
> >
> > spc=. ' ' E. every b
> >
> > 0 1 1 0 0 1
> > 0 0 1 0 1 1
> > 0 1 1 0 1 1
> > 0 0 1 0 0 1
> > 0 0 0 0 0 0
> > 0 0 0 0 0 1
> > 0 0 0 0 1 1
> >
> > keepmask=. (0 = spc)
> >
> > 1 0 0 1 1 0
> > 1 1 0 1 0 0
> > 1 0 0 1 0 0
> > 1 1 0 1 1 0
> > 1 1 1 1 1 1
> > 1 1 1 1 1 0
> > 1 1 1 1 0 0
> >
> > I thought that the following would accomplish what I wanted, but it
> > does NOT:
> >
> > nospc=. keepmask # each b
> >
> > +-+-+-+-+-+-+
> > |6| | |6|3| |
> > +-+-+-+-+-+-+
> > |3|0| |2| | |
> > +-+-+-+-+-+-+
> > |1| | |5| | |
> > +-+-+-+-+-+-+
> > |1|7| |1|7| |
> > +-+-+-+-+-+-+
> > |1|1|9|1|0|3|
> > +-+-+-+-+-+-+
> > |1|1|8|1|4| |
> > +-+-+-+-+-+-+
> > |1|1|6|1| | |
> > +-+-+-+-+-+-+
> >
> > Essentially, this puts me right back where I started, without
> > accomplishing anything. I thought it would be a very straightforward
> > process to append the digits of two numbers--it's sort of the reverse
> > of what was discussed here recently. The final step, of course, is to
> > convert the new literal back into a number (but that part's easy!).
> >
> > I appreciate any help with this--thanks in advance!
> >
> > Harvey
> >
> > ----------------------------------------------------------------------
> > For information about J forums see http://www.jsoftware.com/forums.htm
>
> --
> regards,
> ====================================================
> GPG key 1024D/4434BAB3 2008-08-24
> gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
--
regards,
====================================================
GPG key 1024D/4434BAB3 2008-08-24
gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
