%% API
--export([start_link/2
+-export([start_link/3
,tock/2
]).
-define(CHAR_DEAD, 32). % Space
-define(CHAR_ALIVE, 111). % o
--define(CHAR_BAR, 61). % =
+-define(CHAR_BAR, 45). % -
-record(state, {x :: integer()
+ ,y :: integer()
,cells :: list(atom())
,num_cells :: integer()
,state_pairs :: list(tuple(integer(), integer())) | []
,replies_pending :: integer()
- ,gen_count = 0 :: integer()
+ ,generation = 0 :: integer()
}).
%% API
%% ============================================================================
-start_link(X, Cells) ->
+start_link(X, Y, Cells) ->
ServerName = {local, ?MODULE},
- Args = [X, Cells],
+ Args = [X, Y, Cells],
Opts = [],
gen_server:start_link(ServerName, ?MODULE, Args, Opts).
%% Callbacks
%% ============================================================================
-init([X, Cells]) ->
+init([X, Y, Cells]) ->
State = #state{x=X
+ ,y=Y
,cells=Cells
,num_cells=length(Cells)
,state_pairs=[]
#state{cells=Cells
,num_cells=NumCells
,state_pairs=[]
+ ,generation=Generation
}=State) ->
- ok = cast_all(Cells, tick),
- {noreply, State#state{replies_pending=NumCells}};
+ NewGeneration = Generation + 1,
+ ok = cast_all(Cells, {tick, NewGeneration}),
+ {noreply, State#state{replies_pending=NumCells, generation=NewGeneration}};
handle_cast({tock, {ID, CellState}},
#state{x=X
+ ,y=Y
,state_pairs=StatePairs
,replies_pending=RepliesPending
- ,gen_count=GenCount
+ ,generation=Generation
,num_cells=NumCells
}=State) ->
case NewRepliesPending of
0 ->
- NewGenCount = GenCount + 1,
- SortedStatePairs = lists:sort(NewStatePairs),
+ SortedStatePairs = lists:sort(
+ fun({A, _}, {B, _}) -> A < B end,
+ NewStatePairs
+ ),
StateChars = [state_to_char(S) || {_, S} <- SortedStatePairs],
- ok = do_print_bar(X),
+
ok = io:format(
- "CELLS: ~b GENERATIONS: ~b~n",
- [NumCells, NewGenCount]
+ "X: ~b Y: ~b CELLS: ~b GENERATION: ~b~n",
+ [X, Y, NumCells, Generation]
),
ok = do_print_bar(X),
+
ok = do_print_state_chars(X, StateChars),
- ok = do_print_bar(X),
+
ok = timer:sleep(?INTERVAL),
schedule_next_tick(),
- {noreply, NewState#state{state_pairs=[], gen_count=NewGenCount}};
+ {noreply, NewState#state{state_pairs=[]}};
_N ->
{noreply, NewState#state{state_pairs=NewStatePairs}}