1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
-module(gleam@queue).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function]).
-export([new/0, from_list/1, to_list/1, is_empty/1, length/1, push_back/2, push_front/2, pop_back/1, pop_front/1, reverse/1, is_logically_equal/3, is_equal/2]).
-export_type([queue/1]).
-opaque queue(DRL) :: {queue, list(DRL), list(DRL)}.
-spec new() -> queue(any()).
new() ->
{queue, [], []}.
-spec from_list(list(DRO)) -> queue(DRO).
from_list(List) ->
{queue, [], List}.
-spec to_list(queue(DRR)) -> list(DRR).
to_list(Queue) ->
_pipe = erlang:element(3, Queue),
gleam@list:append(_pipe, gleam@list:reverse(erlang:element(2, Queue))).
-spec is_empty(queue(any())) -> boolean().
is_empty(Queue) ->
(erlang:element(2, Queue) =:= []) andalso (erlang:element(3, Queue) =:= []).
-spec length(queue(any())) -> integer().
length(Queue) ->
gleam@list:length(erlang:element(2, Queue)) + gleam@list:length(
erlang:element(3, Queue)
).
-spec push_back(queue(DRY), DRY) -> queue(DRY).
push_back(Queue, Item) ->
{queue, [Item | erlang:element(2, Queue)], erlang:element(3, Queue)}.
-spec push_front(queue(DSB), DSB) -> queue(DSB).
push_front(Queue, Item) ->
{queue, erlang:element(2, Queue), [Item | erlang:element(3, Queue)]}.
-spec pop_back(queue(DSE)) -> {ok, {DSE, queue(DSE)}} | {error, nil}.
pop_back(Queue) ->
case Queue of
{queue, [], []} ->
{error, nil};
{queue, [], Out} ->
pop_back({queue, gleam@list:reverse(Out), []});
{queue, [First | Rest], Out@1} ->
Queue@1 = {queue, Rest, Out@1},
{ok, {First, Queue@1}}
end.
-spec pop_front(queue(DSJ)) -> {ok, {DSJ, queue(DSJ)}} | {error, nil}.
pop_front(Queue) ->
case Queue of
{queue, [], []} ->
{error, nil};
{queue, In, []} ->
pop_front({queue, [], gleam@list:reverse(In)});
{queue, In@1, [First | Rest]} ->
Queue@1 = {queue, In@1, Rest},
{ok, {First, Queue@1}}
end.
-spec reverse(queue(DSO)) -> queue(DSO).
reverse(Queue) ->
{queue, erlang:element(3, Queue), erlang:element(2, Queue)}.
-spec check_equal(
list(DSR),
list(DSR),
list(DSR),
list(DSR),
fun((DSR, DSR) -> boolean())
) -> boolean().
check_equal(Xs, X_tail, Ys, Y_tail, Eq) ->
case {Xs, X_tail, Ys, Y_tail} of
{[], [], [], []} ->
true;
{[X | Xs@1], _, [Y | Ys@1], _} ->
case Eq(X, Y) of
false ->
false;
true ->
check_equal(Xs@1, X_tail, Ys@1, Y_tail, Eq)
end;
{[], [_ | _], _, _} ->
check_equal(gleam@list:reverse(X_tail), [], Ys, Y_tail, Eq);
{_, _, [], [_ | _]} ->
check_equal(Xs, X_tail, gleam@list:reverse(Y_tail), [], Eq);
{_, _, _, _} ->
false
end.
-spec is_logically_equal(queue(DSW), queue(DSW), fun((DSW, DSW) -> boolean())) -> boolean().
is_logically_equal(A, B, Element_is_equal) ->
check_equal(
erlang:element(3, A),
erlang:element(2, A),
erlang:element(3, B),
erlang:element(2, B),
Element_is_equal
).
-spec is_equal(queue(DSZ), queue(DSZ)) -> boolean().
is_equal(A, B) ->
check_equal(
erlang:element(3, A),
erlang:element(2, A),
erlang:element(3, B),
erlang:element(2, B),
fun(A@1, B@1) -> A@1 =:= B@1 end
).
|
