Current section

Files

Jump to
base32_clockwork src base32_utils.erl
Raw

src/base32_utils.erl

-module(base32_utils).
-export([rev_bits_list_to_binary/1, bits_list_size/1]).
rev_bits_list_to_binary(List) ->
rev_bits_list_to_binary0(List, <<>>).
rev_bits_list_to_binary0([], Accu) ->
Accu;
rev_bits_list_to_binary0([Bits | Next], Accu) ->
rev_bits_list_to_binary0(Next, <<Bits/bitstring, Accu/bitstring>>).
bits_list_size(List) ->
bits_list_size0(List, 0).
bits_list_size0([], Count) ->
Count;
bits_list_size0([Bits | Next], Count) ->
bits_list_size0(Next, bit_size(Bits) + Count).