I wrote:
> zUr7c =: (, 1 , 0 #~ 1 = ] {~ +/)^:(|. 1 0"_`])
Small improvement:
zUr7d =: (, 1 , 0 #~ 1 = +/ { ])^:(|. 1 0"_`])
-Dan
--
View this message in context:
http://www.nabble.com/How-to-behead-included--tf4778131s24193.html#a13678212
Sent from the J Programming mailing list archive at Nabble.com.
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
