Here's another (straightforward) variant:

E=:   +/ % #
SD=:  %:@E@:*:@:- E
COR=: E@:*&(- E) % *&SD

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

Reply via email to