6 , compose/1 % alias for compose_right/1
20 {arity, Arity} = erlang:fun_info(F, arity),
23 -spec curry(fun(), list(), integer()) ->
26 apply(F, lists:reverse(Args));
27 curry(F, Args, Arity) ->
28 fun (X) -> curry(F, [X | Args], Arity - 1) end.
30 -spec compose([fun((A) -> B)]) ->
35 -spec compose_right([fun((A) -> B)]) ->
38 compose_given_fold(Fs, fun lists:foldr/3).
40 -spec compose_left([fun((A) -> B)]) ->
43 compose_given_fold(Fs, fun lists:foldl/3).
45 -spec thread([fun((A) -> B)], A) ->
52 %% ============================================================================
54 -spec compose_given_fold([fun((A) -> B)], fun((fun((A, B) -> C), B, [A]) -> C)) ->
56 compose_given_fold(Fs, Fold) ->
57 fun (X) -> Fold(fun (F, Y) -> F(Y) end, X, Fs) end.