>  busort=: (] A.~ [EMAIL PROTECTED]@# +/ .* 0 , 2 </\ |.)^:#

However, for lists with more than ten elements you
would need something like
   busort=: (] A.~ [EMAIL PROTECTED]:@[EMAIL PROTECTED] +/ .* 0 , 2 </\ |.)^:#

You can also eliminate that ] without changing the
meaning of the expression, but I have been trying to
get out of the habit of using hooks with long right trains.

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

Reply via email to