-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.