We were talking about rank-1 arguments.
----- Original Message -----
From: Dan Bron <[EMAIL PROTECTED]>
Date: Wednesday, January 3, 2007 8:16 pm
Subject: RE: [Jprogramming] Splitting string on pattern [Reprise]
> Roger wrote:
> > To get exactly the same result as E.,
>
> Now Roger, that's lying:
>
> (,:'gr') E. 'the grass is ',:'always greener'
> 0 0 0 0 1 0 0 0 0 0 0 0 0 0
> 0 0 0 0 0 0 0 1 0 0 0 0 0 0
>
> (,:'gr') myedot 'the grass is ',:'always greener'
> NB. For any def, 'cept the last, which gives 0 0
> |length error: myedot
> | */"1 x ="1(#y){.(#x)[\y
>
> (before anyone suggests it, myedot"_ 1 is not right either)
>
> However, E. is readily modelled:
>
> Edot =: [ -:"_ _1 (];.3~ $)~
>
> (,:'gr') Edot 'the grass is ',:'always greener'
> 0 0 0 0 1 0 0 0 0 0 0 0 0 0
> 0 0 0 0 0 0 0 1 0 0 0 0 0 0
>
> Or, if you prefer a \ solution, here's \ generalized to
> multiple dimensions:
>
> cut_3 =: (] <@:|:\&>~ ({~ #@:$))^:(#@:[) < NB. <;._3
> Edot =: $@:] {. <@:[ = (cut_3~ $)~ f.
>
> (,:'gr') Edot 'the grass is ',:'always greener'
> 0 0 0 0 1 0 0 0 0 0 0 0 0 0
> 0 0 0 0 0 0 0 1 0 0 0 0 0 0
>
> Arved: you might be interested in other primitive-equivalents:
> http://www.jsoftware.com/jwiki/PrimitivePrimitives
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
