samer@13: % foldrcols - fold array columns from the right
samer@13: %
samer@13: % foldrcols :; 
samer@4: %    ([[M]], [[N]] -> [[M]])   ~'folding function',
samer@4: %    [[M]]                     ~'initial value',
samer@4: %    [[N,L]]                   ~'data to scan, sequence of length L'
samer@4: % -> [[M]].
samer@4: 
samer@4: function y=foldrcols(f,y,X,varargin)
samer@12: 	for i=size(X,2):-1:1, y=f(y,X(:,i)); end
samer@12: end
samer@4: 	
samer@4: