バイナリのリストをcharに変換するには？

Question

私は0と1のリストをcharに変換したいと思います。 例：

bitToChar([1,0,0,0,1,0,1]) = $Q 

ありがとうございます。

Answer 1

あなたは、（それ$0 sおよび$1 sの文字列を作るために）それらのそれぞれに$0を追加し、リストを反転し、ベース2でlist_to_integer/2を使用することができます。

1> list_to_integer(lists:reverse([N + $0 || N <- [1,0,0,0,1,0,1]]), 2) == $Q. 
true 

ます。またlists:foldlを使用することができます。コードは少し長いですが、それはlist_to_binaryを使用していません：

1> element(2, lists:foldl(fun(Digit, {Mul, Acc}) -> {Mul * 2, Acc + Digit * Mul} end, {1, 0}, Xs)) == $Q.    true 

これは基本的にやってと同等です：1 * 1 + 0 * 2 + 0 * 4 + 0 * 8 + 1 * 16 + 0 * 32 + 1 * 64を。 $Q以来

Answer 2

$Q = lists:foldr(fun(X,Acc) -> X + (Acc bsl 1) end, 0,[1,0,0,0,1,0,1]). 

Answer 3

は、あなたがしなければならないすべては、ベースの数を2進数から10進数へのベース番号からBitToCharの変換に使用される整数値です。

to_decimal(X) -> 
    to_decimal(lists:reverse(X), 1, 0). 

% you can validate that if H = 1 then add, if other not but I omitted this validation 
to_decimal([H | T], Times, Acc) -> 
    to_decimal(T, 2 * Times, H * Times + Acc); 

to_decimal([], _Times, Acc) -> Acc. 

そしてそれは整数を返します。

最も簡単な変換があります。あなたのケースで は：

> $Q = 81. 
81 

> $Q == 81. 
true 

Answer 4

それを行うための別の方法は、使用することですbit string comprehension：ある

X = [1,0,0,0,1,0,1], 
<<C:7>> = << <<Bit:1>> || Bit <- lists:reverse(X) >>, 
$Q == C. 

は、リストから一度に1つの要素を選択し、ビットとして各要素を使用します最後に7ビットの数値を変数Cに抽出します。