-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((DUF) -> DUG), fun((DUG) -> DUH)) -> fun((DUF) -> DUH).
compose(Fun1, Fun2) ->
    fun(A) -> Fun2(Fun1(A)) end.

-spec curry2(fun((DUI, DUJ) -> DUK)) -> fun((DUI) -> fun((DUJ) -> DUK)).
curry2(Fun) ->
    fun(A) -> fun(B) -> Fun(A, B) end end.

-spec curry3(fun((DUM, DUN, DUO) -> DUP)) -> fun((DUM) -> fun((DUN) -> fun((DUO) -> DUP))).
curry3(Fun) ->
    fun(A) -> fun(B) -> fun(C) -> Fun(A, B, C) end end end.

-spec curry4(fun((DUR, DUS, DUT, DUU) -> DUV)) -> fun((DUR) -> fun((DUS) -> fun((DUT) -> fun((DUU) -> DUV)))).
curry4(Fun) ->
    fun(A) -> fun(B) -> fun(C) -> fun(D) -> Fun(A, B, C, D) end end end end.

-spec curry5(fun((DUX, DUY, DUZ, DVA, DVB) -> DVC)) -> fun((DUX) -> fun((DUY) -> fun((DUZ) -> fun((DVA) -> fun((DVB) -> DVC))))).
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((DVE, DVF, DVG, DVH, DVI, DVJ) -> DVK)) -> fun((DVE) -> fun((DVF) -> fun((DVG) -> fun((DVH) -> fun((DVI) -> fun((DVJ) -> DVK)))))).
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((DVM, DVN) -> DVO)) -> fun((DVN, DVM) -> DVO).
flip(Fun) ->
    fun(B, A) -> Fun(A, B) end.

-spec identity(DVP) -> DVP.
identity(X) ->
    X.

-spec constant(DVQ) -> fun((any()) -> DVQ).
constant(Value) ->
    fun(_) -> Value end.

-spec tap(DVS, fun((DVS) -> any())) -> DVS.
tap(Arg, Effect) ->
    Effect(Arg),
    Arg.