17 lines
343 B
Erlang
17 lines
343 B
Erlang
-module(catamorphism).
|
|
|
|
-export([test/0]).
|
|
|
|
test() ->
|
|
Nums = lists:seq(1,10),
|
|
Summation =
|
|
lists:foldl(fun(X, Acc) -> X + Acc end, 0, Nums),
|
|
Product =
|
|
lists:foldl(fun(X, Acc) -> X * Acc end, 1, Nums),
|
|
Concatenation =
|
|
lists:foldr(
|
|
fun(X, Acc) -> integer_to_list(X) ++ Acc end,
|
|
"",
|
|
Nums),
|
|
{Summation, Product, Concatenation}.
|