制作一个队列服务器来把请求加入队列, prime_queue_server来处理请求
prime_queue_server添加到prime_tester_supervisor的监控下
-module(prime_tester_supervisor).
-behaviour(supervisor).
-export([start_link/0]).
-export([init/1]).
start_link() ->
supervisor:start_link({local, ?MODULE}, ?MODULE, []).
init(_) ->
Re = {prime_tester_server, {prime_tester_server, start_link, []}, temporary, infinity, worker, [prime_tester_server]},
Pools = [Re || _ <- lists:seq(1, 10)],
Qu = {prime_queue_server, {prime_queue_server, start_link, []}, permanent, 5000, worker, [prime_queue_server]},
{ok, {{one_for_one, 3, 10}, [Qu | Pools]}}.