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
