RosettaCodeData/Task/Function-composition/Erlang/function-composition-1.erl

-module(fn).
-export([compose/2, multicompose/1]).

compose(F,G) -> fun(X) -> F(G(X)) end.

multicompose(Fs) ->
    lists:foldl(fun compose/2, fun(X) -> X end, Fs).
A-M baby 2013-04-10 21:29:02 -07:00			`-module(fn).`
September 2017 Update 2017-09-23 10:01:46 +02:00			`-export([compose/2, multicompose/1]).`
A-M baby 2013-04-10 21:29:02 -07:00
			`compose(F,G) -> fun(X) -> F(G(X)) end.`

			`multicompose(Fs) ->`
			`lists:foldl(fun compose/2, fun(X) -> X end, Fs).`