-module(integer_complexity@internal@array).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([get/2, set/3, from_list/2, to_list/1]).

-spec get(gary:erlang_array(HAH), integer()) -> {ok, HAH} | {error, nil}.
get(Array, Index) ->
    Default_value = gary@array:get_default(Array),
    case gary@array:get(Array, Index) of
        {ok, Value} when Value =/= Default_value ->
            {ok, Value};

        _ ->
            {error, nil}
    end.

-spec set(gary:erlang_array(HAL), integer(), HAL) -> {ok,
        gary:erlang_array(HAL)} |
    {error, nil}.
set(Array, Index, Item) ->
    _pipe = gary@array:set(Array, Index, Item),
    gleam@result:nil_error(_pipe).

-spec from_list(list(HAQ), HAQ) -> gary:erlang_array(HAQ).
from_list(List, Default) ->
    gary@array:from_list(List, Default).

-spec to_list(gary:erlang_array(HAT)) -> list(HAT).
to_list(Array) ->
    gary@array:to_list(Array).