关于Lua实现位运算 模块分析

Lua实现位运算 模块分析是本文要介绍的内容，主要是来学习LUA中的位运算，本文通过代码来实现位运算的操作，具体内容来看本文详解。

--[[  
Description:  
    FileName:bit.lua  
    This module provides a selection of bitwise operations.  
History:  
    Initial version created by  阵雨 2005-11-10.  
Notes:  
  ....  
]]  
--[[{2147483648,1073741824,536870912,268435456,134217728,67108864,33554432,16777216,  
        8388608,4194304,2097152,1048576,524288,262144,131072,65536,  
        32768,16384,8192,4096,2048,1024,512,256,128,64,32,16,8,4,2,1}  
        ]]  
 
 
bit={data32={}}  
for i=1,32 do  
    bit.data32[i]=2^(32-i)  
end  
 
function bit:d2b(arg)  
    local   tr={}  
    for i=1,32 do  
        if arg >= self.data32[i] then  
        tr[i]=1  
        argarg=arg-self.data32[i]  
        else  
        tr[i]=0  
        end  
    end  
    return   tr  
end   --bit:d2b  
 
function    bit:b2d(arg)  
    local   nr=0 
    for i=1,32 do  
        if arg[i] ==1 then  
        nrnr=nr+2^(32-i)  
        end  
    end  
    return  nr  
end   --bit:b2d  
 
function    bit:_xor(a,b)  
    local   op1=self:d2b(a)  
    local   op2=self:d2b(b)  
    local   r={}  
 
    for i=1,32 do  
        if op1[i]==op2[i] then  
            r[i]=0  
        else  
            r[i]=1  
        end  
    end  
    return  self:b2d(r)  
end --bit:xor  
 
function    bit:_and(a,b)  
    local   op1=self:d2b(a)  
    local   op2=self:d2b(b)  
    local   r={}  
      
    for i=1,32 do  
        if op1[i]==1 and op2[i]==1  then  
            r[i]=1  
        else  
            r[i]=0  
        end  
    end  
    return  self:b2d(r)  
      
end --bit:_and  
 
function    bit:_or(a,b)  
    local   op1=self:d2b(a)  
    local   op2=self:d2b(b)  
    local   r={}  
      
    for i=1,32 do  
        if  op1[i]==1 or   op2[i]==1   then  
            r[i]=1  
        else  
            r[i]=0  
        end  
    end  
    return  self:b2d(r)  
end --bit:_or  
 
function    bit:_not(a)  
    local   op1=self:d2b(a)  
    local   r={}  
 
    for i=1,32 do  
        if  op1[i]==1   then  
            r[i]=0  
        else  
            r[i]=1  
        end  
    end  
    return  self:b2d(r)  
end --bit:_not  
 
function    bit:_rshift(a,n)  
    local   op1=self:d2b(a)  
    local   r=self:d2b(0)  
      
    if n < 32 and n > 0 then  
        for i=1,n do  
            for i=31,1,-1 do  
                op1[i+1]=op1[i]  
            end  
            op1[1]=0  
        end  
    r=op1 
    end  
    return  self:b2d(r)  
end --bit:_rshift  
 
function    bit:_lshift(a,n)  
    local   op1=self:d2b(a)  
    local   r=self:d2b(0)  
      
    if n < 32 and n > 0 then  
        for i=1,n   do  
            for i=1,31 do  
                op1[i]=op1[i+1]  
            end  
            op1[32]=0  
        end  
    r=op1 
    end  
    return  self:b2d(r)  
end --bit:_lshift  
 
 
function    bit:print(ta)  
    local   sr="" 
    for i=1,32 do  
        srsr=sr..ta[i]  
    end  
    print(sr)  
end  
 
bs=bit:d2b(7)  
bit:print(bs)                            
-->00000000000000000000000000000111  
bit:print(bit:d2b(bit:_not(7)))           
-->11111111111111111111111111111000  
bit:print(bit:d2b(bit:_rshift(7,2)))      
-->00000000000000000000000000000001  
bit:print(bit:d2b(bit:_lshift(7,2)))      
-->00000000000000000000000000011100  
print(bit:b2d(bs))                      -->     7  
print(bit:_xor(7,2))                    -->     5  
print(bit:_and(7,4))                    -->     4  
print(bit:_or(5,2))                     -->     7  
 
--end of bit.lua   
 
小结：关于Lua实现位运算 模块分析的内容介绍完了，希望通过本文的学习能对你有所帮助！关于Lua实现位运算 模块分析  
 
Lua实现位运算 模块分析是本文要介绍的内容，主要是来学习LUA中的位运算，本文通过代码来实现位运算的操作，具体内容来看本文详解。  
 
--[[  
Description:  
    FileName:bit.lua  
    This module provides a selection of bitwise operations.  
History:  
    Initial version created by  阵雨 2005-11-10.  
Notes:  
  ....  
]]  
--[[{2147483648,1073741824,536870912,268435456,134217728,67108864,33554432,16777216,  
        8388608,4194304,2097152,1048576,524288,262144,131072,65536,  
        32768,16384,8192,4096,2048,1024,512,256,128,64,32,16,8,4,2,1}  
        ]]  
 
 
bit={data32={}}  
for i=1,32 do  
    bit.data32[i]=2^(32-i)  
end  
 
function bit:d2b(arg)  
    local   tr={}  
    for i=1,32 do  
        if arg >= self.data32[i] then  
        tr[i]=1  
        argarg=arg-self.data32[i]  
        else  
        tr[i]=0  
        end  
    end  
    return   tr  
end   --bit:d2b  
 
function    bit:b2d(arg)  
    local   nr=0 
    for i=1,32 do  
        if arg[i] ==1 then  
        nrnr=nr+2^(32-i)  
        end  
    end  
    return  nr  
end   --bit:b2d  
 
function    bit:_xor(a,b)  
    local   op1=self:d2b(a)  
    local   op2=self:d2b(b)  
    local   r={}  
 
    for i=1,32 do  
        if op1[i]==op2[i] then  
            r[i]=0  
        else  
            r[i]=1  
        end  
    end  
    return  self:b2d(r)  
end --bit:xor  
 
function    bit:_and(a,b)  
    local   op1=self:d2b(a)  
    local   op2=self:d2b(b)  
    local   r={}  
      
    for i=1,32 do  
        if op1[i]==1 and op2[i]==1  then  
            r[i]=1  
        else  
            r[i]=0  
        end  
    end  
    return  self:b2d(r)  
      
end --bit:_and  
 
function    bit:_or(a,b)  
    local   op1=self:d2b(a)  
    local   op2=self:d2b(b)  
    local   r={}  
      
    for i=1,32 do  
        if  op1[i]==1 or   op2[i]==1   then  
            r[i]=1  
        else  
            r[i]=0  
        end  
    end  
    return  self:b2d(r)  
end --bit:_or  
 
function    bit:_not(a)  
    local   op1=self:d2b(a)  
    local   r={}  
 
    for i=1,32 do  
        if  op1[i]==1   then  
            r[i]=0  
        else  
            r[i]=1  
        end  
    end  
    return  self:b2d(r)  
end --bit:_not  
 
function    bit:_rshift(a,n)  
    local   op1=self:d2b(a)  
    local   r=self:d2b(0)  
      
    if n < 32 and n > 0 then  
        for i=1,n do  
            for i=31,1,-1 do  
                op1[i+1]=op1[i]  
            end  
            op1[1]=0  
        end  
    r=op1 
    end  
    return  self:b2d(r)  
end --bit:_rshift  
 
function    bit:_lshift(a,n)  
    local   op1=self:d2b(a)  
    local   r=self:d2b(0)  
      
    if n < 32 and n > 0 then  
        for i=1,n   do  
            for i=1,31 do  
                op1[i]=op1[i+1]  
            end  
            op1[32]=0  
        end  
    r=op1 
    end  
    return  self:b2d(r)  
end --bit:_lshift  
 
 
function    bit:print(ta)  
    local   sr="" 
    for i=1,32 do  
        srsr=sr..ta[i]  
    end  
    print(sr)  
end  
 
bs=bit:d2b(7)  
bit:print(bs)                            
-->00000000000000000000000000000111  
bit:print(bit:d2b(bit:_not(7)))           
-->11111111111111111111111111111000  
bit:print(bit:d2b(bit:_rshift(7,2)))      
-->00000000000000000000000000000001  
bit:print(bit:d2b(bit:_lshift(7,2)))      
-->00000000000000000000000000011100  
print(bit:b2d(bs))                      -->     7  
print(bit:_xor(7,2))                    -->     5  
print(bit:_and(7,4))                    -->     4  
print(bit:_or(5,2))                     -->     7 

0--end of bit.lua

小结：关于Lua实现位运算 模块分析的内容介绍完了，希望通过本文的学习能对你有所帮助！