fp_gl

-module(fp_gl@flist).
-compile(no_auto_import).

-export([get_eq/1, sort/1]).

-spec get_eq(fp_gl@eq:eq(EOD)) -> fp_gl@eq:eq(list(EOD)).
get_eq(E) ->
    {eq,
     fun(X, Y) ->
         (gleam@list:length(X)
         =:= gleam@list:length(Y))
         andalso begin
             _pipe = gleam@list:zip(X, Y),
             gleam@list:all(
                 _pipe,
                 fun(T) ->
                     {X@1, Y@1} = T,
                     (erlang:element(2, E))(X@1, Y@1)
                 end
             )
         end
     end}.

-spec sort(fp_gl@models:ord(EOH)) -> fun((list(EOH)) -> list(EOH)).
sort(O) ->
    fun(Lst) ->
        _pipe = Lst,
        gleam@list:sort(_pipe, erlang:element(2, O))
    end.