3
-export([ok1/0, ok2/0]).
4
-export([wrong1/0, wrong2/0, wrong3/0, wrong4/0, wrong5/0, wrong6/0, wrong7/0, wrong8/0]).
7
queue:is_empty(queue:new()).
11
Q1 = queue:in(42, Q0),
12
{{value, 42}, Q2} = queue:out(Q1),
15
%%--------------------------------------------------
18
queue:is_empty({[],[]}).
26
Q1 = queue:in(42, Q0),
32
Q1 = queue:in(42, Q0),
36
{F, _R} = queue:new(),
40
{{value, 42}, Q2} = queue:out({[42],[]}),
43
%%--------------------------------------------------
48
add_unique(42, #db{p = [], q = queue:new()}).
51
case is_in_queue(E, DB) of
53
false -> DB#db{q = queue:in(E, DB#db.q)}
56
is_in_queue(P, #db{q = {L1,L2}}) ->
57
lists:member(P, L1) orelse lists:member(P, L2).
59
%%--------------------------------------------------
62
tuple_queue({42, gazonk}).
64
tuple_queue({F, Q}) ->