samer@44: function Z=zipels(f,varargin)
samer@44: % zipels - Zip a scalar function of several arguments over several arrays
samer@44: %
samer@44: % zipels :: 
samer@44: %    (A{:}->B) 
samer@44: %    [Size->A{1}],
samer@44: %    [Size->A{2}],
samer@44: %    ..
samer@44: % -> [Size->B].
samer@44: 
samer@44: fN=(f<=length(varargin)); % fN takes a tuple instead of multiple args
samer@44: nth=@(i)@(x)x(i);
samer@44: Z=repmat(fN(cellmap(nth(1),varargin)),size(varargin{1}));
samer@44: for i=2:numel(varargin{1})
samer@44: 	Z(i)=fN(cellmap(nth(i),varargin));
samer@44: end