Problem 201. Mimic foldl in functional programming

Solution 463653

Submitted on 28 Jun 2014 by Clemens Giegerich

This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

Test	Status	Code Input and Output
1	Pass	%% summation assert(isequal(foldl(@plus, 0, 1:100), 5050));
2	Pass	%% summation 2 r = rand(1, 100); y = foldl(@plus, 0, r); yc = sum(r); assert(abs(y - yc)/abs(y) < 1e-6);
3	Pass	%% factorial assert(isequal(foldl(@times, 1, 1:15), factorial(15)));
4	Pass	%% find maximum r = rand(1, 1000); assert(isequal(foldl(@max, -Inf, r), max(r)));
5	Pass	%% assert(isequal(foldl(@(x_, y_) 2*x_ + y_, 4, 1:3), 43));
6	Pass	%% handle 1 sumplusfive = foldl(@plus, 5); assert(isequal(sumplusfive(1:100), 5055));
7	Pass	%% handle 2 concat = foldl(@(x_, y_) [x_ y_]); r1 = rand(1, 10); r2 = rand(1, 10); assert(isequal(concat(r1, r2), [r1 r2]));