Gray code: Difference between revisions

Line 3,652:

=={{header|Phix}}==

{{Trans|Delphi}} (turned out to be almost the same as Euphoria)

<lang Phix>~~function gray_encode~~(~~integer n~~)

with javascript_semantics

return xor_bits(n,floor(n/2))

function gray_encode(integer n)

end function

return xor_bits(n,floor(n/2))

end function

function gray_decode(integer n)

integer r = 0

function gray_decode(integer n)

while n>0 do

integer r = 0

r = xor_bits(r,n)

while n>0 do

n = floor(n/2)

r = xor_bits(r,n)

end while

n = floor(n/2)

return r

end while

end function

return r

end function

integer e,d

puts(1," N Binary Gray Decoded\n"&

integer e,d

"== ===== ===== =======\n")

puts(1," N Binary Gray Decoded\n"&

for i=0 to 31 do

"== ===== ===== =======\n")

e = gray_encode(i)

for i=0 to 31 do

d = gray_decode(e)

e = gray_encode(i)

printf(1,"%2d %05b %05b %2d\n",{i,i,e,d})

d = gray_decode(e)

~~end for~~</lang>

printf(1,"%2d %05b %05b %2d\n",{i,i,e,d})

end for

<pre>