OpenEuphoria

Re: Euphoria Standard Library

• Posted by rforno at tutopia.com Jul 25, 2001
• 375 views

Why not simply:

return 255 - xor_bits(a, b)  ???

----- Original Message ----- 
From: <euphoria at carlw.legend.uk.com>
To: "EUforum" <EUforum at topica.com>
Subject: Re: Euphoria Standard Library


> 
> 
> aku at inbox.as wrote:
> 
> > -- eqv_bits only for 0-255 number
> > global function eqv_bits(atom a, atom b)
> >     sequence abit, bbit, tp
> >     
> >     abit=int_to_bits(a, 8)
> >     bbit=int_to_bits(b, 8)
> >     tp=repeat(0,8)
> >     
> >     for i=1 to length(abit) do
> >         if abit[i]=bbit[i] then
> >             tp[i]=1
> >         else
> >             tp[i]=0
> >         end if
> >     end for        
> >     
> >     return bits_to_int(tp)
> > end function
> 
> Pardon me 'function'ing again... :)
> 
> global function eqv_8bits(integer a, integer b)
>     return 255-and_bits(xor_bits(a,b),255)
> end function
> 
> Carl
> 
> -- 
> Carl R White - aka - Cyrek
> eMail: carlw at legend.co.uk
>        cyrek at bigfoot.com
> URL:   www.carlw.legend.yorks.com - nothing there yet though
> 
> 
> 
>