17 lines
359 B
Erlang
17 lines
359 B
Erlang
-module(part_one).
|
|
|
|
-export([main/1]).
|
|
|
|
-import(common, [parse_file/1, polymerization/3]).
|
|
|
|
main(Args) ->
|
|
Path = lists:last(Args),
|
|
{Sequence, Rules} = parse_file(Path),
|
|
|
|
Counter = polymerization(Sequence, Rules, 10),
|
|
Values = maps:values(Counter),
|
|
Max = lists:max(Values),
|
|
Min = lists:min(Values),
|
|
|
|
io:format("~p~n", [Max - Min]).
|