view general/arrutils/strip1.m @ 44:3cedfd4549ef

Code added since initial check in.

function sz=strip1(sz)
% strip1 - strip trailing ones from an array size specification
%
% strip1 :: [[1,E]] -> [[1,F]].
e=length(sz);
while e>0 && sz(e)==1, e=e-1; end
if e>0, sz=sz(1:e); else sz=[]; end