diff general/arrutils/shiftl.m @ 13:03694e5c8365

Reorganised some high order list functions to correct class-based method dispatch; fixed some docs.

--- a/general/arrutils/shiftl.m	Mon Jan 14 22:21:11 2013 +0000
+++ b/general/arrutils/shiftl.m	Wed Jan 16 12:12:34 2013 +0000
@@ -1,9 +1,13 @@
+% shiftl - shift a column vector up one
+%
+% shift :: [[N,M]] -> [[N,M]].
+%
+% Shift array elements back one, padding end with zeros.
+% eg [ 1 2 3 4 ] --> [ 2 3 4 0]
 function y=shiftl(x)
-% shiftl - shift a column vector up one
-% maintaining original length
-% eg [ 1 2 3 4 ] --> [ 2 3 4 0]
-if isvector(x)
-	y = [ x(2:length(x)); 0];
-else
-	y = [ x(:,2:size(x,2)), zeros(size(x,1),1) ];
+	if isvector(x)
+		y = [ x(2:end); 0];
+	else
+		y = [ x(:,2:size(x,2)), zeros(size(x,1),1) ];
+	end
 end