Mercurial > hg > ishara

diff general/cellutils/cfoldl.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/cfoldl.m	Wed Jan 16 12:12:34 2013 +0000
@@ -0,0 +1,9 @@
+function X=cfoldl(fn,e,args)
+% cfoldl - Fold fom the left combinator for cell arrays
+%
+% foldl :: (X,Y->X), X, cells(Y) -> X.
+%
+% This function applies a folding function to cell array,
+% starting from the left using the given starting element.
+% eg cfoldl(@plus,0,{1,2,3,4}) = ((((0+1)+2)+3)+4).
+X=e; for i=1:length(args), X=fn(X,args{i}); end