leaner, faster
involute=.$ /:@(+/\)@(,@(<./ {. |:@(1 0 + [EMAIL PROTECTED]@|.)) # +:@<./ $ (,
-)@(1 ,
{:))
vs
spiral=. $ /:@:(*/ {. }:@:(0&({::)@:((([ , {.@:]) ;
|.@:|:@:}.@:])&>/^:_))@:(''&;)@:i.)(spiral-:involute) 200 300 1 st=.7!:[EMAIL PROTECTED] , 6!:2 st 'spiral 200 300' 5.24621e6 0.389979 st 'involute 200 300' 1.0496e6 0.00278834 --- ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
