init:stop().
solve(A) ->
- solve(A, get_test_data()).
+ solve(A, get_data()).
solve(['1'], D) ->
io:format("The solution to ~p puzzle1 is: ~p~n", [?MODULE, solve(1, D)]);
get_count_list(D, init_acc(length(H), [])).
get_count_list([], Acc) ->
- io:format("~p~n", [Acc]),
Acc;
get_count_list([H|T], Acc) ->
get_count_list(T, lists:zipwith(fun(X, {Ones, Zeros}) ->
%% Convert binary list to integer, e.g. "1011" -> 11 dec
bl2int(CL) ->
+ io:format("convert ~p~n", [CL]),
bl2int(lists:reverse(CL), 0, 0).
bl2int([], Acc, _) ->