Current section

Files

Jump to
gleam_stdlib src gleam@function.erl
Raw

src/gleam@function.erl

-module(gleam@function).
-compile(no_auto_import).
-export([compose/2, curry2/1, curry3/1, curry4/1, curry5/1, curry6/1, flip/1, identity/1, constant/1, tap/2]).
-spec compose(fun((DUD) -> DUE), fun((DUE) -> DUF)) -> fun((DUD) -> DUF).
compose(Fun1, Fun2) ->
fun(A) -> Fun2(Fun1(A)) end.
-spec curry2(fun((DUG, DUH) -> DUI)) -> fun((DUG) -> fun((DUH) -> DUI)).
curry2(Fun) ->
fun(A) -> fun(B) -> Fun(A, B) end end.
-spec curry3(fun((DUK, DUL, DUM) -> DUN)) -> fun((DUK) -> fun((DUL) -> fun((DUM) -> DUN))).
curry3(Fun) ->
fun(A) -> fun(B) -> fun(C) -> Fun(A, B, C) end end end.
-spec curry4(fun((DUP, DUQ, DUR, DUS) -> DUT)) -> fun((DUP) -> fun((DUQ) -> fun((DUR) -> fun((DUS) -> DUT)))).
curry4(Fun) ->
fun(A) -> fun(B) -> fun(C) -> fun(D) -> Fun(A, B, C, D) end end end end.
-spec curry5(fun((DUV, DUW, DUX, DUY, DUZ) -> DVA)) -> fun((DUV) -> fun((DUW) -> fun((DUX) -> fun((DUY) -> fun((DUZ) -> DVA))))).
curry5(Fun) ->
fun(A) ->
fun(B) ->
fun(C) -> fun(D) -> fun(E) -> Fun(A, B, C, D, E) end end end
end
end.
-spec curry6(fun((DVC, DVD, DVE, DVF, DVG, DVH) -> DVI)) -> fun((DVC) -> fun((DVD) -> fun((DVE) -> fun((DVF) -> fun((DVG) -> fun((DVH) -> DVI)))))).
curry6(Fun) ->
fun(A) ->
fun(B) ->
fun(C) ->
fun(D) -> fun(E) -> fun(F) -> Fun(A, B, C, D, E, F) end end end
end
end
end.
-spec flip(fun((DVK, DVL) -> DVM)) -> fun((DVL, DVK) -> DVM).
flip(Fun) ->
fun(B, A) -> Fun(A, B) end.
-spec identity(DVN) -> DVN.
identity(X) ->
X.
-spec constant(DVO) -> fun((any()) -> DVO).
constant(Value) ->
fun(_) -> Value end.
-spec tap(DVQ, fun((DVQ) -> any())) -> DVQ.
tap(Arg, Effect) ->
Effect(Arg),
Arg.