barber_channels.erl

main() ->
    Clients = ch:make(),
    spawn(clients_generator, [Clients]),
    lists:foreach(fun(_) ->
                    spawn(barber, [Clients])
                  end, lists:seq(1,10)).

clients_generator(Clients) ->
    ch:enqueue(client, Clients),
    timer:sleep(random:uniform(100)),
    clients_generator(Clients).

barber(Clients) ->
    ch:foreach(fun(_) ->
                  timer:sleep(100)
               end, Clients).

%% buffer for waiting room?
Clients = ch:buffer(?MAX_WAITERS, ch:make())

%% max clients restrictions for each barber?
ch:foreach(fun(_) -> timer:sleep(100) end, 
           ch:take(?MAX_CLIENTS, Clients)).