On 6/17/08, June Kim <[EMAIL PROTECTED]> wrote:
> Thank you but it doens't work as I expected:

Oops

lines=: <@".;._2
rank=: 1 + [: # [: #/.~ [: #;.1 a:&~:
shap=: [:|. [:*/\^:_1  [:>@}. #&0&.>@[EMAIL PROTECTED] i.&1@(] # >./[EMAIL 
PROTECTED])L:0 a:&~:
unvec=:  >@(shap $ -.&a:)@lines

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

Reply via email to