2010/4/10 Kip Murray <[email protected]>:
> cr =: ({. + 0.5 * [: (- |) {:) ,: [: | {:

I like Andrew Nikitin's cr:
   cr=:(<./ ,:>./)&.(+/\)

FYI,

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

Reply via email to