Packages
gleam_stdlib
0.28.0
1.0.3
1.0.2
1.0.1
1.0.0
0.71.0
0.70.0
0.69.0
0.68.1
0.68.0
0.67.1
0.67.0
0.65.0
0.64.0
0.63.2
0.63.1
0.63.0
0.62.1
0.62.0
0.61.0
0.60.0
0.59.0
0.58.0
0.57.0
0.56.0
0.55.0
0.54.0
0.53.0
0.52.0
0.51.0
0.50.0
0.49.0
0.48.0
0.47.0
0.46.0
0.45.0
0.44.0
0.43.0
0.42.0
0.41.0
0.40.0
0.39.0
0.38.0
0.37.0
0.36.0
0.35.1
0.35.0
0.34.0
0.33.1
0.33.0
0.32.1
0.32.0
0.31.0
0.30.2
0.30.1
0.30.0
0.29.2
0.29.1
0.29.0
0.28.2
0.28.1
0.28.0
0.27.0
0.26.1
0.26.0
0.25.0
0.24.0
0.23.0
0.22.3
0.22.2
0.22.1
0.22.0
0.21.0
0.20.0
0.19.3
0.19.2
0.19.1
0.19.0
0.18.1
0.18.0
0.18.0-rc1
0.17.1
0.17.0
0.16.0
0.15.0
0.14.0
0.13.0
0.12.0
0.11.0
0.10.1
0.10.0
0.9.0
0.8.0
0.7.0
0.6.0
0.5.0
0.4.0
0.4.0-rc1
0.3.1
0.3.0
0.2.0
retired
A standard library for the Gleam programming language
Current section
Files
Jump to
Current section
Files
src/gleam@iterator.erl
-module(gleam@iterator).
-compile([no_auto_import, nowarn_unused_vars]).
-export([step/1, empty/0, once/1, single/1, first/1, unfold/2, repeatedly/1, repeat/1, from_list/1, range/2, iterate/2, transform/3, fold/3, run/1, to_list/1, reduce/2, last/1, take/2, drop/2, at/2, map/2, group/2, append/2, flatten/1, flat_map/2, cycle/1, filter/2, find/2, index/1, take_while/2, drop_while/2, scan/3, zip/2, chunk/2, sized_chunk/2, intersperse/2, any/2, all/2, interleave/2, fold_until/3, try_fold/3, length/1]).
-export_type([action/1, iterator/1, step/2, chunk/2, sized_chunk/1]).
-type action(CTB) :: stop | {continue, CTB, fun(() -> action(CTB))}.
-opaque iterator(CTC) :: {iterator, fun(() -> action(CTC))}.
-type step(CTD, CTE) :: {next, CTD, CTE} | done.
-type chunk(CTF, CTG) :: {another_by,
list(CTF),
CTG,
CTF,
fun(() -> action(CTF))} |
{last_by, list(CTF)}.
-type sized_chunk(CTH) :: {another, list(CTH), fun(() -> action(CTH))} |
{last, list(CTH)} |
no_more.
-spec stop() -> action(any()).
stop() ->
stop.
-spec step(iterator(CVA)) -> step(CVA, iterator(CVA)).
step(Iterator) ->
case (erlang:element(2, Iterator))() of
stop ->
done;
{continue, E, A} ->
{next, E, {iterator, A}}
end.
-spec update_group_with(DAO) -> fun((gleam@option:option(list(DAO))) -> list(DAO)).
update_group_with(El) ->
fun(Maybe_group) -> case Maybe_group of
{some, Group} ->
[El | Group];
none ->
[El]
end end.
-spec empty() -> iterator(any()).
empty() ->
{iterator, fun stop/0}.
-spec once(fun(() -> DBQ)) -> iterator(DBQ).
once(F) ->
_pipe = fun() -> {continue, F(), fun stop/0} end,
{iterator, _pipe}.
-spec single(DBS) -> iterator(DBS).
single(Elem) ->
once(fun() -> Elem end).
-spec first(iterator(DDA)) -> {ok, DDA} | {error, nil}.
first(Iterator) ->
case (erlang:element(2, Iterator))() of
stop ->
{error, nil};
{continue, E, _} ->
{ok, E}
end.
-spec do_unfold(CTK, fun((CTK) -> step(CTL, CTK))) -> fun(() -> action(CTL)).
do_unfold(Initial, F) ->
fun() -> case F(Initial) of
{next, X, Acc} ->
{continue, X, do_unfold(Acc, F)};
done ->
stop
end end.
-spec unfold(CTP, fun((CTP) -> step(CTQ, CTP))) -> iterator(CTQ).
unfold(Initial, F) ->
_pipe = Initial,
_pipe@1 = do_unfold(_pipe, F),
{iterator, _pipe@1}.
-spec repeatedly(fun(() -> CTU)) -> iterator(CTU).
repeatedly(F) ->
unfold(nil, fun(_) -> {next, F(), nil} end).
-spec repeat(CTW) -> iterator(CTW).
repeat(X) ->
repeatedly(fun() -> X end).
-spec from_list(list(CTY)) -> iterator(CTY).
from_list(List) ->
Yield = fun(Acc) -> case Acc of
[] ->
done;
[Head | Tail] ->
{next, Head, Tail}
end end,
unfold(List, Yield).
-spec range(integer(), integer()) -> iterator(integer()).
range(Start, Stop) ->
case gleam@int:compare(Start, Stop) of
eq ->
once(fun() -> Start end);
gt ->
unfold(Start, fun(Current) -> case Current < Stop of
false ->
{next, Current, Current - 1};
true ->
done
end end);
lt ->
unfold(Start, fun(Current@1) -> case Current@1 > Stop of
false ->
{next, Current@1, Current@1 + 1};
true ->
done
end end)
end.
-spec iterate(CXS, fun((CXS) -> CXS)) -> iterator(CXS).
iterate(Initial, F) ->
unfold(Initial, fun(Element) -> {next, Element, F(Element)} end).
-spec do_transform(
fun(() -> action(CUB)),
CUD,
fun((CUD, CUB) -> step(CUE, CUD))
) -> fun(() -> action(CUE)).
do_transform(Continuation, State, F) ->
fun() -> case Continuation() of
stop ->
stop;
{continue, El, Next} ->
case F(State, El) of
done ->
stop;
{next, Yield, Next_state} ->
{continue, Yield, do_transform(Next, Next_state, F)}
end
end end.
-spec transform(iterator(CUI), CUK, fun((CUK, CUI) -> step(CUL, CUK))) -> iterator(CUL).
transform(Iterator, Initial, F) ->
_pipe = do_transform(erlang:element(2, Iterator), Initial, F),
{iterator, _pipe}.
-spec do_fold(fun(() -> action(CUP)), fun((CUR, CUP) -> CUR), CUR) -> CUR.
do_fold(Continuation, F, Accumulator) ->
case Continuation() of
{continue, Elem, Next} ->
do_fold(Next, F, F(Accumulator, Elem));
stop ->
Accumulator
end.
-spec fold(iterator(CUS), CUU, fun((CUU, CUS) -> CUU)) -> CUU.
fold(Iterator, Initial, F) ->
_pipe = erlang:element(2, Iterator),
do_fold(_pipe, F, Initial).
-spec run(iterator(any())) -> nil.
run(Iterator) ->
fold(Iterator, nil, fun(_, _) -> nil end).
-spec to_list(iterator(CUX)) -> list(CUX).
to_list(Iterator) ->
_pipe = Iterator,
_pipe@1 = fold(_pipe, [], fun(Acc, E) -> [E | Acc] end),
gleam@list:reverse(_pipe@1).
-spec reduce(iterator(DBG), fun((DBG, DBG) -> DBG)) -> {ok, DBG} | {error, nil}.
reduce(Iterator, F) ->
case (erlang:element(2, Iterator))() of
stop ->
{error, nil};
{continue, E, Next} ->
_pipe = do_fold(Next, F, E),
{ok, _pipe}
end.
-spec last(iterator(DBK)) -> {ok, DBK} | {error, nil}.
last(Iterator) ->
_pipe = Iterator,
reduce(_pipe, fun(_, Elem) -> Elem end).
-spec do_take(fun(() -> action(CVF)), integer()) -> fun(() -> action(CVF)).
do_take(Continuation, Desired) ->
fun() -> case Desired > 0 of
false ->
stop;
true ->
case Continuation() of
stop ->
stop;
{continue, E, Next} ->
{continue, E, do_take(Next, Desired - 1)}
end
end end.
-spec take(iterator(CVI), integer()) -> iterator(CVI).
take(Iterator, Desired) ->
_pipe = erlang:element(2, Iterator),
_pipe@1 = do_take(_pipe, Desired),
{iterator, _pipe@1}.
-spec do_drop(fun(() -> action(CVL)), integer()) -> action(CVL).
do_drop(Continuation, Desired) ->
case Continuation() of
stop ->
stop;
{continue, E, Next} ->
case Desired > 0 of
true ->
do_drop(Next, Desired - 1);
false ->
{continue, E, Next}
end
end.
-spec drop(iterator(CVO), integer()) -> iterator(CVO).
drop(Iterator, Desired) ->
_pipe = fun() -> do_drop(erlang:element(2, Iterator), Desired) end,
{iterator, _pipe}.
-spec at(iterator(DDE), integer()) -> {ok, DDE} | {error, nil}.
at(Iterator, Index) ->
_pipe = Iterator,
_pipe@1 = drop(_pipe, Index),
first(_pipe@1).
-spec do_map(fun(() -> action(CVR)), fun((CVR) -> CVT)) -> fun(() -> action(CVT)).
do_map(Continuation, F) ->
fun() -> case Continuation() of
stop ->
stop;
{continue, E, Continuation@1} ->
{continue, F(E), do_map(Continuation@1, F)}
end end.
-spec map(iterator(CVV), fun((CVV) -> CVX)) -> iterator(CVX).
map(Iterator, F) ->
_pipe = erlang:element(2, Iterator),
_pipe@1 = do_map(_pipe, F),
{iterator, _pipe@1}.
-spec group_updater(fun((DAS) -> DAT)) -> fun((gleam@map:map_(DAT, list(DAS)), DAS) -> gleam@map:map_(DAT, list(DAS))).
group_updater(F) ->
fun(Groups, Elem) -> _pipe = Groups,
gleam@map:update(_pipe, F(Elem), update_group_with(Elem)) end.
-spec group(iterator(DBA), fun((DBA) -> DBC)) -> gleam@map:map_(DBC, list(DBA)).
group(Iterator, Key) ->
_pipe = Iterator,
_pipe@1 = fold(_pipe, gleam@map:new(), group_updater(Key)),
gleam@map:map_values(
_pipe@1,
fun(_, Group) -> gleam@list:reverse(Group) end
).
-spec do_append(fun(() -> action(CVZ)), fun(() -> action(CVZ))) -> action(CVZ).
do_append(First, Second) ->
case First() of
{continue, E, First@1} ->
{continue, E, fun() -> do_append(First@1, Second) end};
stop ->
Second()
end.
-spec append(iterator(CWD), iterator(CWD)) -> iterator(CWD).
append(First, Second) ->
_pipe = fun() ->
do_append(erlang:element(2, First), erlang:element(2, Second))
end,
{iterator, _pipe}.
-spec do_flatten(fun(() -> action(iterator(CWH)))) -> action(CWH).
do_flatten(Flattened) ->
case Flattened() of
stop ->
stop;
{continue, It, Next_iterator} ->
do_append(
erlang:element(2, It),
fun() -> do_flatten(Next_iterator) end
)
end.
-spec flatten(iterator(iterator(CWL))) -> iterator(CWL).
flatten(Iterator) ->
_pipe = fun() -> do_flatten(erlang:element(2, Iterator)) end,
{iterator, _pipe}.
-spec flat_map(iterator(CWP), fun((CWP) -> iterator(CWR))) -> iterator(CWR).
flat_map(Iterator, F) ->
_pipe = Iterator,
_pipe@1 = map(_pipe, F),
flatten(_pipe@1).
-spec cycle(iterator(CXA)) -> iterator(CXA).
cycle(Iterator) ->
_pipe = repeat(Iterator),
flatten(_pipe).
-spec do_filter(fun(() -> action(CWU)), fun((CWU) -> boolean())) -> action(CWU).
do_filter(Continuation, Predicate) ->
case Continuation() of
stop ->
stop;
{continue, E, Iterator} ->
case Predicate(E) of
true ->
{continue, E, fun() -> do_filter(Iterator, Predicate) end};
false ->
do_filter(Iterator, Predicate)
end
end.
-spec filter(iterator(CWX), fun((CWX) -> boolean())) -> iterator(CWX).
filter(Iterator, Predicate) ->
_pipe = fun() -> do_filter(erlang:element(2, Iterator), Predicate) end,
{iterator, _pipe}.
-spec do_find(fun(() -> action(CXE)), fun((CXE) -> boolean())) -> {ok, CXE} |
{error, nil}.
do_find(Continuation, F) ->
case Continuation() of
stop ->
{error, nil};
{continue, E, Next} ->
case F(E) of
true ->
{ok, E};
false ->
do_find(Next, F)
end
end.
-spec find(iterator(CXI), fun((CXI) -> boolean())) -> {ok, CXI} | {error, nil}.
find(Haystack, Is_desired) ->
_pipe = erlang:element(2, Haystack),
do_find(_pipe, Is_desired).
-spec do_index(fun(() -> action(CXM)), integer()) -> fun(() -> action({integer(),
CXM})).
do_index(Continuation, Next) ->
fun() -> case Continuation() of
stop ->
stop;
{continue, E, Continuation@1} ->
{continue, {Next, E}, do_index(Continuation@1, Next + 1)}
end end.
-spec index(iterator(CXP)) -> iterator({integer(), CXP}).
index(Iterator) ->
_pipe = erlang:element(2, Iterator),
_pipe@1 = do_index(_pipe, 0),
{iterator, _pipe@1}.
-spec do_take_while(fun(() -> action(CXU)), fun((CXU) -> boolean())) -> fun(() -> action(CXU)).
do_take_while(Continuation, Predicate) ->
fun() -> case Continuation() of
stop ->
stop;
{continue, E, Next} ->
case Predicate(E) of
false ->
stop;
true ->
{continue, E, do_take_while(Next, Predicate)}
end
end end.
-spec take_while(iterator(CXX), fun((CXX) -> boolean())) -> iterator(CXX).
take_while(Iterator, Predicate) ->
_pipe = erlang:element(2, Iterator),
_pipe@1 = do_take_while(_pipe, Predicate),
{iterator, _pipe@1}.
-spec do_drop_while(fun(() -> action(CYA)), fun((CYA) -> boolean())) -> action(CYA).
do_drop_while(Continuation, Predicate) ->
case Continuation() of
stop ->
stop;
{continue, E, Next} ->
case Predicate(E) of
false ->
{continue, E, Next};
true ->
do_drop_while(Next, Predicate)
end
end.
-spec drop_while(iterator(CYD), fun((CYD) -> boolean())) -> iterator(CYD).
drop_while(Iterator, Predicate) ->
_pipe = fun() -> do_drop_while(erlang:element(2, Iterator), Predicate) end,
{iterator, _pipe}.
-spec do_scan(fun(() -> action(CYG)), fun((CYI, CYG) -> CYI), CYI) -> fun(() -> action(CYI)).
do_scan(Continuation, F, Accumulator) ->
fun() -> case Continuation() of
stop ->
stop;
{continue, El, Next} ->
Accumulated = F(Accumulator, El),
{continue, Accumulated, do_scan(Next, F, Accumulated)}
end end.
-spec scan(iterator(CYK), CYM, fun((CYM, CYK) -> CYM)) -> iterator(CYM).
scan(Iterator, Initial, F) ->
_pipe = erlang:element(2, Iterator),
_pipe@1 = do_scan(_pipe, F, Initial),
{iterator, _pipe@1}.
-spec do_zip(fun(() -> action(CYO)), fun(() -> action(CYQ))) -> fun(() -> action({CYO,
CYQ})).
do_zip(Left, Right) ->
fun() -> case Left() of
stop ->
stop;
{continue, El_left, Next_left} ->
case Right() of
stop ->
stop;
{continue, El_right, Next_right} ->
{continue,
{El_left, El_right},
do_zip(Next_left, Next_right)}
end
end end.
-spec zip(iterator(CYT), iterator(CYV)) -> iterator({CYT, CYV}).
zip(Left, Right) ->
_pipe = do_zip(erlang:element(2, Left), erlang:element(2, Right)),
{iterator, _pipe}.
-spec next_chunk(fun(() -> action(CYY)), fun((CYY) -> CZA), CZA, list(CYY)) -> chunk(CYY, CZA).
next_chunk(Continuation, F, Previous_key, Current_chunk) ->
case Continuation() of
stop ->
{last_by, gleam@list:reverse(Current_chunk)};
{continue, E, Next} ->
Key = F(E),
case Key =:= Previous_key of
true ->
next_chunk(Next, F, Key, [E | Current_chunk]);
false ->
{another_by,
gleam@list:reverse(Current_chunk),
Key,
E,
Next}
end
end.
-spec do_chunk(fun(() -> action(CZE)), fun((CZE) -> CZG), CZG, CZE) -> action(list(CZE)).
do_chunk(Continuation, F, Previous_key, Previous_element) ->
case next_chunk(Continuation, F, Previous_key, [Previous_element]) of
{last_by, Chunk} ->
{continue, Chunk, fun stop/0};
{another_by, Chunk@1, Key, El, Next} ->
{continue, Chunk@1, fun() -> do_chunk(Next, F, Key, El) end}
end.
-spec chunk(iterator(CZJ), fun((CZJ) -> any())) -> iterator(list(CZJ)).
chunk(Iterator, F) ->
_pipe = fun() -> case (erlang:element(2, Iterator))() of
stop ->
stop;
{continue, E, Next} ->
do_chunk(Next, F, F(E), E)
end end,
{iterator, _pipe}.
-spec next_sized_chunk(fun(() -> action(CZO)), integer(), list(CZO)) -> sized_chunk(CZO).
next_sized_chunk(Continuation, Left, Current_chunk) ->
case Continuation() of
stop ->
case Current_chunk of
[] ->
no_more;
Remaining ->
{last, gleam@list:reverse(Remaining)}
end;
{continue, E, Next} ->
Chunk = [E | Current_chunk],
case Left > 1 of
false ->
{another, gleam@list:reverse(Chunk), Next};
true ->
next_sized_chunk(Next, Left - 1, Chunk)
end
end.
-spec do_sized_chunk(fun(() -> action(CZS)), integer()) -> fun(() -> action(list(CZS))).
do_sized_chunk(Continuation, Count) ->
fun() -> case next_sized_chunk(Continuation, Count, []) of
no_more ->
stop;
{last, Chunk} ->
{continue, Chunk, fun stop/0};
{another, Chunk@1, Next_element} ->
{continue, Chunk@1, do_sized_chunk(Next_element, Count)}
end end.
-spec sized_chunk(iterator(CZW), integer()) -> iterator(list(CZW)).
sized_chunk(Iterator, Count) ->
_pipe = erlang:element(2, Iterator),
_pipe@1 = do_sized_chunk(_pipe, Count),
{iterator, _pipe@1}.
-spec do_intersperse(fun(() -> action(DAA)), DAA) -> action(DAA).
do_intersperse(Continuation, Separator) ->
case Continuation() of
stop ->
stop;
{continue, E, Next} ->
Next_interspersed = fun() -> do_intersperse(Next, Separator) end,
{continue, Separator, fun() -> {continue, E, Next_interspersed} end}
end.
-spec intersperse(iterator(DAD), DAD) -> iterator(DAD).
intersperse(Iterator, Elem) ->
_pipe = fun() -> case (erlang:element(2, Iterator))() of
stop ->
stop;
{continue, E, Next} ->
{continue, E, fun() -> do_intersperse(Next, Elem) end}
end end,
{iterator, _pipe}.
-spec do_any(fun(() -> action(DAG)), fun((DAG) -> boolean())) -> boolean().
do_any(Continuation, Predicate) ->
case Continuation() of
stop ->
false;
{continue, E, Next} ->
case Predicate(E) of
true ->
true;
false ->
do_any(Next, Predicate)
end
end.
-spec any(iterator(DAI), fun((DAI) -> boolean())) -> boolean().
any(Iterator, Predicate) ->
_pipe = erlang:element(2, Iterator),
do_any(_pipe, Predicate).
-spec do_all(fun(() -> action(DAK)), fun((DAK) -> boolean())) -> boolean().
do_all(Continuation, Predicate) ->
case Continuation() of
stop ->
true;
{continue, E, Next} ->
case Predicate(E) of
true ->
do_all(Next, Predicate);
false ->
false
end
end.
-spec all(iterator(DAM), fun((DAM) -> boolean())) -> boolean().
all(Iterator, Predicate) ->
_pipe = erlang:element(2, Iterator),
do_all(_pipe, Predicate).
-spec do_interleave(fun(() -> action(DBU)), fun(() -> action(DBU))) -> action(DBU).
do_interleave(Current, Next) ->
case Current() of
stop ->
Next();
{continue, E, Next_other} ->
{continue, E, fun() -> do_interleave(Next, Next_other) end}
end.
-spec interleave(iterator(DBY), iterator(DBY)) -> iterator(DBY).
interleave(Left, Right) ->
_pipe = fun() ->
do_interleave(erlang:element(2, Left), erlang:element(2, Right))
end,
{iterator, _pipe}.
-spec do_fold_until(
fun(() -> action(DCC)),
fun((DCE, DCC) -> gleam@list:continue_or_stop(DCE)),
DCE
) -> DCE.
do_fold_until(Continuation, F, Accumulator) ->
case Continuation() of
stop ->
Accumulator;
{continue, Elem, Next} ->
case F(Accumulator, Elem) of
{continue, Accumulator@1} ->
do_fold_until(Next, F, Accumulator@1);
{stop, Accumulator@2} ->
Accumulator@2
end
end.
-spec fold_until(
iterator(DCG),
DCI,
fun((DCI, DCG) -> gleam@list:continue_or_stop(DCI))
) -> DCI.
fold_until(Iterator, Initial, F) ->
_pipe = erlang:element(2, Iterator),
do_fold_until(_pipe, F, Initial).
-spec do_try_fold(
fun(() -> action(DCK)),
fun((DCM, DCK) -> {ok, DCM} | {error, DCN}),
DCM
) -> {ok, DCM} | {error, DCN}.
do_try_fold(Continuation, F, Accumulator) ->
case Continuation() of
stop ->
{ok, Accumulator};
{continue, Elem, Next} ->
gleam@result:then(
F(Accumulator, Elem),
fun(Accumulator@1) -> do_try_fold(Next, F, Accumulator@1) end
)
end.
-spec try_fold(iterator(DCS), DCU, fun((DCU, DCS) -> {ok, DCU} | {error, DCV})) -> {ok,
DCU} |
{error, DCV}.
try_fold(Iterator, Initial, F) ->
_pipe = erlang:element(2, Iterator),
do_try_fold(_pipe, F, Initial).
-spec do_length(fun(() -> action(any())), integer()) -> integer().
do_length(Continuation, Length) ->
case Continuation() of
stop ->
Length;
{continue, _, Next} ->
do_length(Next, Length + 1)
end.
-spec length(iterator(any())) -> integer().
length(Iterator) ->
_pipe = erlang:element(2, Iterator),
do_length(_pipe, 0).