d332 for ;: in J Vocabulary. I didn't want to put all that in the mail, but
here it is.
mj=: 256$0 NB. X other
mj=: 1 (9,a.i.' ')}mj NB. S space and tab
mj=: 2 ((a.i.'Aa')+/i.26)}mj NB. A A-Z a-z excluding N B
mj=: 3 (a.i.'N')}mj NB. N the letter N
mj=: 4 (a.i.'B')}mj NB. B the letter B
mj=: 5 (a.i.'0123456789_')}mj NB. 9 digits and _
mj=: 6 (a.i.'.')}mj NB. D .
mj=: 7 (a.i.':')}mj NB. C :
mj=: 8 (a.i.'''')}mj NB. Q quote
sj=: _2]\"1 }.".;._2 (0 : 0)
' X S A N B 9 D C Q ']0
1 1 0 0 2 1 3 1 2 1 6 1 1 1 1 1 7 1 NB. 0 space
1 2 0 3 2 2 3 2 2 2 6 2 1 0 1 0 7 2 NB. 1 other
1 2 0 3 2 0 2 0 2 0 2 0 1 0 1 0 7 2 NB. 2 alp/num
1 2 0 3 2 0 2 0 4 0 2 0 1 0 1 0 7 2 NB. 3 N
1 2 0 3 2 0 2 0 2 0 2 0 5 0 1 0 7 2 NB. 4 NB
9 0 9 0 9 0 9 0 9 0 9 0 1 0 1 0 9 0 NB. 5 NB.
1 4 0 5 6 0 6 0 6 0 6 0 6 0 1 0 7 4 NB. 6 num
7 0 7 0 7 0 7 0 7 0 7 0 7 0 7 0 8 0 NB. 7 '
1 2 0 3 2 2 3 2 2 2 6 2 1 2 1 2 7 0 NB. 8 ''
9 0 9 0 9 0 9 0 9 0 9 0 9 0 9 0 9 0 NB. 9 comment
)
x=: 0;sj;mj
y=: 'sum=. (i.3 4)+/ .*0j4+pru 4'
x ;: y
On Fri, Feb 24, 2012 at 9:28 PM, Henry Rich <henryhr...@nc.rr.com> wrote:
> Where is this help, where sj and mj are defined?
>
> Henry Rich
>
> On 2/24/2012 7:25 PM, Don Guinn wrote:
> > I've lost track of the number of times I have tried to make dyadic ;:
> work.
> > I read it, understand it (I think), but I can't get it to work. The
> general
> > description has m, the input mapping as a list of boxes, each box
> > containing the items to be mapped to the same number. So, in an attempt
> to
> > figure out what is going on I converted the example in help to that form
> > and get an error.
> >
> > Given sj, mj and y as defined in help:
> >
> > (0;sj;mj) ;: y
> > +---+--+-+--+---+-+-+-+-+-+---+-+---+-+
> > |sum|=.|(|i.|3 4|)|+|/|.|*|0j4|+|pru|4|
> > +---+--+-+--+---+-+-+-+-+-+---+-+---+-+
> >
> > So far, so good. Convert mj to the boxed form (display shortened to fit
> > e-mail):
> >
> > mj2=:(/:~.mj){mj</.a.
> > ,.50{.&.>mj2
> > +--------------------------------------------------+
> > | ┌┬┐├┼┤└┴┘│─ !"#$%&()*+,-/;<=>?@|
> > +--------------------------------------------------+
> > | |
> > +--------------------------------------------------+
> > |ACDEFGHIJKLMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz|
> > +--------------------------------------------------+
> > |N |
> > +--------------------------------------------------+
> > |B |
> > +--------------------------------------------------+
> > |0123456789_ |
> > +--------------------------------------------------+
> > |. |
> > +--------------------------------------------------+
> > |: |
> > +--------------------------------------------------+
> > |' |
> > +--------------------------------------------------+
> >
> > Test it to see if it is ok.
> >
> > my=. (y i.~;m) { (#m),~(#&>m)#i.#m NB. From help
> > y,:,":"0 my
> > sum=. (i.3 4)+/ .*0j4+pru 4
> > 222061026515000160525022215
> >
> > Looks good, but
> >
> > (0;sj;mj2) ;: y
> > |length error
> > | (0;sj;mj2) ;:y
> >
> > The problem is not with y, but something about mj2.
> >
> > (0;sj;mj2)&;:
> > |length error
> > | (0;sj;mj2)&;:
> >
> > As I understand the description in help, this should work.
> >
> > So, what am I missing?
> > ----------------------------------------------------------------------
> > 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
