Getting rid of redundant symbols I've ended up with:
{~<@(<@i.@<:@$)Dan Bron wrote: > but it loses the elegance (and therefore purpose) of the original. Similarly > for the razor: > > > ];._3~ 0 ,: _1 + $ > > ; @:(<;._3~ 0 ,: _1 + $) PS All three runs approximately the same time on Roger's benchmark (0.000969397). ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
