samer@4: function Y=maprows(f,X)
samer@4: % maprows - Map a function of a vector over the rows of an array
samer@4: %
samer@4: % maprows :: 
samer@4: %    ([[1,N]->A] -> [[1,M]->B]) ~'function maps a row of A to a row of B',
samer@4: %    [[L,N]->A]
samer@4: % -> [[L,M]->B].
samer@4: 
samer@4: n=size(X,1);
samer@4: if n==0, Y=[];
samer@4: else
samer@4: 	for i=n:-1:1
samer@4: 		Y(i,:)=f(X(i,:));
samer@4: 	end
samer@4: end
samer@4: