More generally
([^:(0=]))/\ 5 4 0 0 5 0 3 0 0 0 7
5 4 4 4 5 5 3 3 3 3 7
--- Oleg Kobchenko <[EMAIL PROTECTED]> wrote:
> How about variation on the theme
>
> >./\ 3 4 0 0 5 0 6 0 0 0 7
> 3 4 4 4 5 5 6 6 6 6 7
>
>
> --- Dan Bron <[EMAIL PROTECTED]> wrote:
>
> > Raul wrote:
> > > drag=: {~ [EMAIL PROTECTED] >./\@:* ([EMAIL PROTECTED] 1{.0{.])
> >
> > Thank you; this is indeed faster; I've replaced my definition with
> > yours. However, I was hoping for a solution that would complete in
> > about half the time of the solutions I provided. That is, I'd like a
> > 2x or 100% speedup; drag is only about 20% faster than drag0 on my
> > dataset.
> >
> > Any other lines of attack?
> >
> > -Dan
> >
> > ----------------------------------------------------------------------
> > For information about J forums see http://www.jsoftware.com/forums.htm
> >
>
>
>
>
> ____________________________________________________________________________________
> Need a quick answer? Get one in minutes from people who know.
> Ask your question on www.Answers.yahoo.com
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
____________________________________________________________________________________
Have a burning question?
Go to www.Answers.yahoo.com and get answers from real people who know.
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
