I wrote:
> zUr7 =: (, 1 , 0 #~ 1 = ({~ +/))@:]^:( ]`(1 0"_) )
Since the verb is now monadic, that @:] is superflous:
zUr7b =: (, 1 , 0 #~ 1 = ({~ +/))^:( ]`(1 0"_) )
And, a bit briefer:
zUr7c =: (, 1 , 0 #~ 1 = ] {~ +/)^:( ]`(1 0"_) )
No briefer, but shallower (in parens):
zUr7c =: (, 1 , 0 #~ 1 = ] {~ +/)^:(|. 1 0"_`])
-Dan
--
View this message in context:
http://www.nabble.com/How-to-behead-included--tf4778131s24193.html#a13673755
Sent from the J Programming mailing list archive at Nabble.com.
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
