Mercurial > hg > ishara

diff general/cellutils/cmapaccum.m @ 13:03694e5c8365

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reorganised some high order list functions to correct class-based method dispatch; fixed some docs.
author samer
date Wed, 16 Jan 2013 12:12:34 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/general/cellutils/cmapaccum.m	Wed Jan 16 12:12:34 2013 +0000
@@ -0,0 +1,10 @@
+function [Y,s]=cmapaccum(fn,s,X)
+% cmapaccum - Map a function over a cell array
+%
+% cmapaccum :: (A,S->B,S), S, {[Size]->A}) -> {[Size]->B}, S.
+
+% preallocate to fix size
+Y=cell(size(X));
+for i=1:numel(X)
+	[Y{i},s]=fn(X{i},s);
+end