Here's how I'd probably approach this:

  exp=:[: (#~ 0 ~: 1&{"1)@; <@(0&{,. 1&{ ([EMAIL PROTECTED],. (] +//. ["0),. [* [EMAIL 
PROTECTED]) 2&}.)"1
  (t2-:exp)t1
1

I particularly like that this uses ["0 and monadic =

--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to