erlang中10进制和二进制十六进制的转换算法

因为erlang中经常会用到二进制，为了方便观察数据，现在写了10进制转为2进制以及10进制转为16进制的算法，以备调用：

 

10进制转2进制：

 

 

-module(de2Binary).  

-export([de2Binary/1]). 

 

tempData([0])-> [];  

tempData([Num]) ->

    Result = Num band 1,     

    integer_to_list(Result) ++ tempData([Num bsr 1]).  

 

de2Binary(Num)->  

    BinaryList = lists:reverse(tempData([Num])),

    LoopTimes = length(BinaryList) rem 8,

    if LoopTimes > 0 -> addBlank(BinaryList,8 - LoopTimes);

       true -> BinaryList

    end.

 

addBlank(BinaryList,0) -> BinaryList;

addBlank(BinaryList,Times) ->

    addBlank("0" ++ BinaryList,Times-1).

 

 

10进制转16进制：

 

 

-module(de2Hex).  

-export([de2Hex/1]). 

 

tempData([0])-> [];  

tempData([Num]) ->

    Temp = Num band 15,  

    if  

        Temp >= 0,Temp < 10 -> Result = Temp + 48;  

        Temp >= 10,Temp < 16 ->  Result = Temp + 55          

    end,  

    [Result | tempData([Num bsr 4])].  

 

de2Hex(Num)->  

    lists:reverse(tempData([Num])).  

 

不过最近发现了erlang模块早已支持十进制和其他进制的转换算法：

erlang:integer_to_list(Data,Type).

例如：如果希望将十进制整数1023转换为2进制，可以用

erlang:integer_to_list(1023,2)，得到结果为字符串：“1111111111"