Also sightly less lean but nicer looking dragRc
dragR =: {~ [EMAIL PROTECTED] >./\@:* ] [EMAIL PROTECTED] 1{.0{.]
dragRb=: {~ [EMAIL PROTECTED] >./\@:* ' ' ~: {."1
dragRc=: {~ [EMAIL PROTECTED] >./\ . * ' ' ~: {."1
20 ts'dragR M1'
0.000377548 213888
20 ts'dragRb M1'
0.000192714 213888
20 ts'dragRc M1'
0.000192403 214272
(dragRb-:dragR) M
1
(dragRc-:dragR) M
1
$M1=: 10000$M
--- Brian Schott <[EMAIL PROTECTED]> wrote:
> A small improvement is achieved assuming that if the
> first character is a space, the whole row is spaces.
>
> dragR =: {~ [EMAIL PROTECTED] >./\@:* ] [EMAIL PROTECTED] 1{.0{.]
> dragRb =: {~ [EMAIL PROTECTED] >./\@:* ' '~:(({.)"1)
> (dragRb-:dragR) M
> 1
> ts =: 6!:2
> MM =: 100$M
> ts 'dragR MM'
> 0.000174074
> ts 'dragRb MM'
> 0.000100908
>
>
> On Mon, 11 Dec 2006, Miller, Raul D wrote:
>
> +
> + Hmm... taking this apart:
> +
> + dragR=: {~ [EMAIL PROTECTED] >./\@:* ] [EMAIL PROTECTED] 1{.0{.]
> +
> + Raul
> +
>
> (B=) <----------my "sig"
>
> Brian Schott
> Atlanta, GA, USA
> schott DOT bee are eye eh en AT gee em ae eye el DOT com
> http://schott.selfip.net/~brian/
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
____________________________________________________________________________________
Want to start your own business?
Learn how on Yahoo! Small Business.
http://smallbusiness.yahoo.com/r-index
____________________________________________________________________________________
Any questions? Get answers on any topic at www.Answers.yahoo.com. Try it now.
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
